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FINALMENTE. 

LA TAVOLETTA GRAFICA A PIENE PRESTAZIONI 
AD UN PREZZO ACCESSIBILE A TUTTI 




La tavoletta grafica KOALA è la più simpatica innovazione nel campo dei personal 
computers. Con KOALA, controllate il vostro computer con un dito. Più veloce 

di un paddle, più versatile dì un joystick e più 
semplice di una tastiera. 

La tavoletta grafica KOALA è compatibile 
con la maggior parte di software esistente 
e viene fornita completa 
del suo programma 


1 prog 

grafico ^'Micro lliustrator". 
KOALA-PAD è il miglior 
modo per creare 
immagini ad alta 
risoluzione con il vostro 
computer. 
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Commodore 64 . 



Un simpatico serpente appena 
nato, lungo appena alcuni qua- 
dretti video, comandato dal gio- 
catore, si aggira per un labirinto 
in cerca di cibo, delle pìccole bi- 
sce, e, ogni volta cbe ne mangia 
una, cresce e diventa sempre più 
lungo. Scopo del gioco è di man- 
giare tutte le bisce; ma attenzio- 
ne: il serpente è velenoso, e se 
morsica sè stesso, cioè si intrap- 
pola con la stessa coda, muore ed 
il gioco finisce, 

(^!hi riesce a mangiare tutte le 
bisce, passa ad un altro labirinto, 
una specie di reticolo, coi quale 
aumenta il livello di difficoltà. 
Se, cioè, prima d'ogni biscia man- 
giata il serpente si allungava di 
due, adesso si allunga di tre, men- 
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tre il numero delle bisce cresce. 
Se anche in questo labirinto 
riuscite a mangiare tutte le bisce, 
si ritorna al primo, ma con un 
numero di bisce ancora maggiore, 
mentre il serpente questa volta si 
allunga di quattro per ogni biscia 
mangiata. 

\ 1 gioco prosegue alternando il 
primo ed il secondo labirinto, ed 
aumentando sempre più il livello 
di difficoltà, fino a quando il ser- 
pente diventerebbe troppo lungo 
da non poter più stare nel labirin- 
to. A questo punto si ritorna a 
livello zero. 

V i assicuro però che questo non 
è facile, anzi... fra parentesi dico 
che io non ci sono mai riuscito, 


ma non è mai detta l'ultima paro- 
la. 

Come si usa 

Il 'inizio bisogna aspettare cir- 
ca un minuto per permettere al 
computer di rilocare la mappa ca- 
ratteri. Attenzione: durante que- 
sta fase è disabilitata la tastiera e 
nemmeno usando Run Stop+Re- 
store, si riesce a bloccare il pro- 
gramma. Perciò registrate il pro- 
gramma prima di farlo girare, 
perchè un eventuale errore di co- 
piatura potrebbe bloccare il siste- 
ma, con la perdita del program- 
ma appena copiato. 

I n seguito bisogna dare il prò- 






prio nome, che verrà stampato in 
alto a destra. Altre informazioni 
che vengono visualizzate sulla 
parte destra del video sono il 
tempo, il numero delie bisce 
mangiate; il livello di difficoltà e 
i relativi parametri di numero bi- 
sce e di aumento per biscia. 

^Vll’inizio sembra che il serpente 
vada dove vuole: non spaventate- 
vi perchè quando c’è da fare 
una curva obbligata, il computer 
non aspetta che voi cambiate di- 


rezione, ma lo fa lui automatica- 
mente, per rendere il gioco più 
difficile. Si può incontrare però 
anche un bivio, cioè un incrocio 
con due possibilità di direzione: 
in questo casosi ferma ed attende 
che voi indichiate dove volete an- 
dare. Chi volesse rendere il gioco 
a n cora più difficile, potrebbe 
modificare il programma in mo- 
do da far decidere al computer la 
direzione anche a un bivio. Altre 
sofisticazioni del programma so- 
no possibili: per esempio, si pos- 


sono mettere più labirinti, ognu- 
no diverso dall’altro ed in ordine 
crescente di difficoltà... 

Note 

I 1 programma cosi come è pub- 
blicato, funziona solo mettendo 
un joystick nella porta uno. Le 
direzioni consentite sono: alto, 
basso, destra e sinistra. Se non si 
ha a disposizione un joystick, bi- 
sogna apportare al programma al 
cune modifiche, ■ 


100 POKE53280 , 0 * P0KE5323 1 ,2 i FR INT w H“ * GQSU5 1580 

1 10 PR 1NT i CLR s Q = 54273 : P0KE54236 , 15 : P0KE54277 , 190*DIMA< 350 > ,A*C 5, 1 > 

:Z=£ iNR- 15 

120 £*=“3" :FORK= ITO 17 !£$=£*+ "3" * NEXT 
130 : 

140 REM * * * ****** *************** 


150 

REM** 

SERPENTE 

** 

160 

REM** 


** 

170 

REM** 

DI GIOVANNI BELLO ' 

** 

160 

REM** 


** 

130 

REM** 

Viri GIARDINI 20 

** 

203 

REM** 


** 

210 

REM* * 

S E R E G N 0 

* * 

223 

REM** 

( MILANO) 

** 

23© 

REM** 

TEL, 0362 -239580 

* * 

240 

REM** 

* * * * * ***************** 

250 

REM* * 

PER COMMODORE 64 

** 


255 REM* *UT 1 L I Z Z ARE JGYST I CK * * 

280 REM** DA INSERIRE NELLA ** 

270 REM** CONTROL PORI i - ** 

E 30 REM* ***** * **************** * 

230 : 

300 PQKE5427S f 24S : F0KE54276 , 1 7 * A S * “ aSHHHBflir *PRINTASTAB< 15>‘*ECC0 A 701“ 

:ri»=ftg+ n M n 
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31© KJ=56321 :FGRK>0TOS 
320 PRINTfi*TAB< 15+K)".* 

330 A-RNOt I M150:FORJ»lTORiNEXT!NEKT 
340 PRINTRSTRBC 15) " w 

350 PRINTRIGHTSC A*,7>TAB< 3) "PREMI *3* PER COMI NC I ARE * s A* = A* + “ M" 

380 FRINTA$TAB<; 15) M a SERPENTE*" 

37B PRINTA*TABC 15 ) " H34444444444 ” 

330 PRINTR^TRB( 15> "flUH 44" 

390 PRINTASTABC 15) MDMia 44 

400 PRINTASTAB* ;5> "IJS8B1344 44" 

4L0 FRI NTASTABC 15 ) " mDQ*I* l*++++++++++Kl' : ft$=fi$+ 11 MMWT 

4E0 F0KEQ,RN0C 1 > *255 S FORK = 1 TO20 : BETft 1*: IFAl^s > “ S " THENNEXT : GOTO440 
430 GOTO4S0 

440 POKEQ,0:PRINTASTAB< I3>"000*" 

450 POKEQ,RNO< 1 > *356 i FORK = 1TOE0 s GETA i*s IFAl*< > " S " THEM^XT t SOTO470 
480 GOTG480 

4 70 POKEG , 0 : PR I NTA^TABC 1 8 > " àOOQ* 11 S GGTO420 
480 PR I NTA^TfìS* 18 > " QGO* “ s POKEQ r 0 

430 frint-mo ** rem 40 spazi 

500 P0KE53281 , S : POKE53280 , 6 : 3NPUT"CGM£ TI CHIAMI * ; N* 

510 PRINT" J” : PQKE5328 1 ,9 i FGKE532S0 , 0 : NM=0 : T I * = " 000000 ,J iPT=0;NP=0 

511 FORI ^55286T055e884 1024 i PQKE I ,7^EXT 

520 FORK = 1624TC 1084 : POKEK , 1 73 * NEKT S FORK = 1 ©24TO2023STEP40 

530 POKEK , 173 SPOKEK + 3S, 1731NEXT 

540 FORK= 1384TO2023 i POKEK, 1 73 S NEXT 

550 FORK “ 1043TO2OO0STEP4O S POKEK , 173sNEXT 

560 PT s CiTJf- "000000 ** :NM = 0:GOTO650 

57C RT*PT + NM*< 500-VRH T*) > 

538 iN*3 SPRINTA 1*TAB< 32 > 0 *00000" i A 1*=A1 *+ "S" 

530 PR INTA 1 $TAB< 35 > * 

800 FRINTA1*TAB< 35>* " : A 1 1 *+ "MB" 

610 PR INTA l*TABt 27 > * 

82© TI$= "000000" iNM=0:PT=PT+5000 

630 NR -NR + 5 : 2 =2 + 1 : I FNP = 4 THENNP = 0 * : Z =2 3 NR = 1 5 ! GOSUB 1 800 
640 IFNF/H< >INT< NP/2 >THENGGT0 1530 
650 Q0SUBI73© SPRINT *aB M TABC 14) "Ah " 

655 REM REGOLO * 

860 print ' ausMia — --a a a a-e a a a-- w 

876 print wia -B a-a a-a a-“ 

630 fr i nt " kii^ i a -a a — a a-a a-a a- ---a a- M 

830 fri NT -»ia-g a-a a-a a- H 
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RRiNT"i*ia - — m a-a a ■ a-B a--B a— - B 

7 i 0 PRIMT'BH 3~B a-B à- n 

7C0 pr i nt " uà- -■ a m a~B a--- ■ a-" 

730 PR I NT " IBI a~B 3~B a- " 

74© print i>ia -■ a-B a-B a-B a a a-B a-- “ 

750 print »ia « a-B a-B a-B a-a a- M 

760 PRiNT°i«m-B a ■ a-B a-B a b a H 

770 print n ì« a-B a-B a — * 

730 pRiNT f> iia — b a--B a-B a-B a-B a- M 

780 PRINT “IBI a-B 3B a~l a-B a~B a M 

800 pRiNT 'wua-B a-B a-B a-B a- -a a-B a-B a-B a-B a- n 
sio primi- M Bna-s a-B a-B a-B a-B a-B a-B a-B a-B a-* 

820 pr i nt ìma -m a-B a-B a ■ a -s a-B a-B a- M 

830 pr i nt ** m a-B a-B a — # 

340 pr int " iBia b a~B a “■ a -B a-B a-B a-" 

3^0 print a-B a- " 

8 G 3 PRIhfT^ IWa - " 

£70 PRINT rh 4M "TAB( 27 )LEFT*( N$,ll) 

830 PR INTA^TABC 30> ' 0 I “ 

300 PR INTA*TAS( 27 > Sia G IOVANNI " S PR INTABTABC 28 > * SB3 BELLO* B’ 

3 10 FORK = ITONR 

320 X = I NIC RND< 1 > *25+ 1 > e IFXC 20RX >25THEN020 

930 Y = 1 NT ( R NC < 1 ) *25 + 1 ) : IF Y< I ORY >22TNEN930 

940 1FPEEKC 1024+X+40*Y>< >32THEN320 

356 P0KE1824+X+40*Y,90:PQKE552964X+40*Y,7 

860 POKEQ ,RND< 1 ) * 1 56 * 1 00 : FDR J =* 1 TG50 : NEXT = POKEQ , 0 

370 rcxT 

380 T=4EEC*87:0EFFNA\ A > *RND< 1>*255 

938 rV< 298) =2024-70: ri< 29? > =AC 296 > - 1 ! A( 298 > =A< 237 >-l s AC 299) 

»AC 29^-1 SPOKEAC 296 > ^T 

1 00©" PR I NT " 3“ 1 N*3 : T I *• = "000008 " l PR I NT 11 II " TftBC 26 > " BT I ME H 

1010 PRINT B *BBBr , TAB<£B> B *ATENB* *TABC35>0 

1020 D = I : 0 = 236 

1830 6DT0 1080 

1040 A< 0+N+ l ) “A< 0+N) 

1850 I F T I $ > " 60 1 000 “ THE NPR I NT 44 BStUST TABC 32 > " BTROPPO TEMPO " : GOTO 1330 
1060 PR INT ” ÉMBIB" T ABC 32 >T 1$ 

1070 PGKEQ ,FNAC A) 

1080 0=0-1 : IFO-- ITHEN1320 

1030 A< 0>=A< 0+1 >+D*X*PEEKC A< 0> ) 
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1 100 PO KEG,0 

1110 IFX -90THENN=N+Z I NM=NM+ l s GOTO 1520 
1120 IFX=8?THEN1330 

1 130 IFNM*NRTHENPRINT J mmSSSA" TfiBì VINTO" ì T* = TI*5GOSUB15 10:NP = 

NP + U GOTO 570 

1 140 IFX< >32THENAC O > =A< O ) -D i D = 0 : PQ&E AC Q > ^ T 5 GOTO 1 £40 
1150 POKEAC Q>,TsFDKEAC 0 + 1 ) ,C 
1160 POKEAC O+N+l >,32 

I 170 FORK = ITO 103 A7>PEEK< KJ > S IFA7; = £55QRA/i< 245 THENNEXT ! GOTO 1040 

1 180 JFAX = 253THENO = 40 iK = 10 sNEXTi COTG1230 

1 130 IFA%=247THEND»I E K * 1 0 * NEXT ! GOTO 1230 

1800 IFflK-25 1THENO*- 1 iK = 10 I NEXTs GOTO 1230 

1210 I FA%= 254 THEfC » -40 s K = 1 0 s NEXT ! GOTO 1 230 

1220 NEXT : GOTO 1230 

1330 GOTO 1 040 

1240 0*0* 1 

1250 Y* 0E Yl=0 : Y2=0 : Y3*=0 c Y4 = 0 

1260 IFPEEKC A< O) + 1 >*320RPEEK< AC O ) + 1 >^90THENY = Y+ 1 : Y1 = 1 
1270 IFPEEKC A< 0) - 1 >=320RPEEKC A< 0>-i >^90THENY=Y+ 1 S Y2 = -l 
1230 IFPEEKC AC O > + 4 0 > «32CRPEEKX AC O ) +40 > j =30THEMY = Y+ 1 S Y3*40 
1230 1FFEEKC AC 0 > -40 > = 320RPEEKC AC C > -4© > -3©THENY = Y+ i : Y4=-40 
1300 IFY»lTHENOs0 cO *D*Y1 +YE+Y3+Y4 : GOTO 1040 
1310 GOTO 1 170 

1320 FCRK -OTON: A< E9G“N*K) = AC K> i NEXT i G =293 -Ni GOTO 1840 
1330 PT-PT-r JM*< 500-VALv T!S> > 

13*8 FORK = 1TQ250 SFGKEQ,RNEH 1 ) *255 : NEXT s FOKEQ , 0 
1353 PR INT ,H aBÌSSBÌlBJ"TAB< 27 > " 3 HAI PERSO w iGG5UB15l8 
13G0 F ORK * 1 TO i 5 

1370 FP t NT " imtUUtWmMÌ TRBC 27 ? 1 ^UNTIP" INTC PT> 

1330 FORJMTO50SNEXT 

1330 FR [ NT » sttteteKIHH WMl TAfìC 27 > "PUNTI*" INTC PT) 

1 406 FDRJ = 1 TO50 s NEXT j , K 

14 18 FRI NT 11 fflMBBM ” T ABC 28)^ ANCORA ?" 

1420 FORK= 1 TQ50:GETA$! IFA$=* " " THENNEXT ! GOTO 1 450 
1430 IFA*< }"N"ANDAS< > - S " THENNEXT: 

1440 GOTO 1470 

1458 PRINT ' msaassak ’TABC 28) " ANCORA ?" 

1480 FORK = lTO50iGETA$! IFA* 3 " "THENNEXT S GOTO 14 10 
1478 IFA$ = "S"THENPR INT'fcJ" i 2 =2 i NR « 1 5 s GOTO500 
1480 IFA3X > H N" THENNEXT s GOTO 1410 

;43Q PR 1 NT " fcJC i AG 1 ? ! 8 s FR I NT " **QOOOGQO» 
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1500 END 

1510 FGRK-OTOO+N+1 ! PQKEA< K ) , 33 s NEXT ! FORK = 1 TOE000 i NEXT s RETURN 
1520 FORJ = 150TO250!POKEQ,J:NEXTSFOKEQ,0:PRINT ;, gDflÌWtì' , TAB< 35)NM:G0TD1 150 
1530 GOSUB ! 730 = PR INT 3M 
1540 FORK - 1 TO 1 i 

1550 PR I NT *'H n - 1 n-a a-P a~* a -9 a i 31 a~* si-m a- ■ a-- M 

1580 PR INT H W 
1570 NEXT ! GOTO870 
1530 PR INT" 

1590 PRINTTABC 10>"a ATTENDERE PREGO M 
1600 PRINTCHRS< 1 48 > : P0KE52 , 48 i PQKE56 , 43 

1610 PQKE56334 , PEEK< 56334 > AND254 : POKE 1 ,PEEKC 1 > AN025 i i FORK =0TO35S4 

1820 POKE 12288+K , PEEK< 53848 +K> : NEXT 

1630 POKE 1 ,PEEK< 1 >0R4 * POKE 563 3 4 ,PEEK< 56334 >OR 1 

1640 FORK^0TO7:READAi POKE 12233+720 +K ,AiNEXT 

1650 FORK =©TG7: READ A : POKE 12233 +63S + K ,AìNEXT: FORK = 0TG73RE ADA: 

POKE 12838 + 336 +K ,A 
1660 NEXT 

1 870 RE3T0RE : FORK =0TO 1 5 : RE ADA : NEXT 

1630 FORK =0TO7 i READA : POKE 122SS + 1 360 +K ,255 -A : NEXT 

1630 POKE 532 72 ,23: RETURN 

170© DAT A3 ,38 ,86 ,86 ,74, 133, 140,0 

1710 DA TA60 , 66 , 123,153, 153, 123,66,60 

1720 GATA60, 86, 165, 183, 165, 153,66,60 

1730 PR INTE$TABC 87) *a LAVELLO ”NP J| II fl 

1740 PR 1NTESTABC 27 > "««NUMERO ♦= 1 ; NR 

1750 PR 1NTE*TAB< 27) " aHMStt/ALORE +=«}Z 

1760 PRlNT"a«J 

1770 FORK- 1T022 

1780 PRINT"» 

1700 NEXT £ RETURN 
1800 FORJMTO20 

1310 PR lNT , ‘gsia iJ TAB< 26) "a CO^L 1 MENTI H 
1320 FORK = lTO50i NEXT 

1830 PR lNT r '^HTTAB< 26) COMPLIMENTI * 

1840 FORK * 1 TO50 ì NEXT i NEXT 
IS50 PR INTIMA TAB< 26 > * 

1666 RETURN 
1870 REM REGOLO 

READY, 
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Canestro 


Una pallina un po’ dispettosa 
scende o dalla parte destra o da 
quella sinistra del video, ed è lei 
che decide, magari facendovi cre- 
dere di scendere da una parte 
mentre poi scende dall’altra, se- 
guendo una traiettoria “quasi” 
parabolica* 

Dico quasi perchè casualmente 
la pallina potrebbe trovarsi da- 
vanti una paletta che la fa rimbal- 
zare, facendole cambiare direzio- 
ne. 

S copo del gioco è di riuscire a 
prendere la pallina spostando una 
specie di canestro che viene dise- 
gnato in basso, muovendolo o a 
destra o a sinistra* In totale scen- 


dono 10 palline, e bisogna riusci- 
re a prenderle tutte* 

S tilla parte alta del video ven- 
gono indicati il numero di palline 
che sono scese, e quante ne sono 
state prese. 

I 1 programma è piuttosto breve 
e chi volesse modificarlo non do- 
vrebbe incontrare difficoltà. 

P er esempio si potrebbe modi- 
ficare il programma in modo da 
poter giocare in più giocatori 
contemporaneamente, magari fa- 
cendo scendere una pallina a tur- 
no per ogni giocatore, e alla fine 
dare una classifica indicando chi 
è stato il più bravo, ■ 



100 

REM" * ** ******* a* ******* ** 

£50 

X=17sP=197sPRlNT " M" 


! 10 

REM" * 

PALLONE « * » RfìNOOM * 

£60 

REM 

************************ 

ì£0 

REM" * 

PER COMMODORE 64 * 

E70 

REM 

** 

** 

150 

REM" * 

* 

880 

REM 

** DI GIOVANNI BELLO* 

** 

1 60 

REM" * 

SPOSTAMENTI * 

£90 

REM 

** 

** 

170 

REM"* 

+ 3 A SINISTRA* * 

300 

REM 

** S E R E G N O 

** 

180 

REM'* * 

- 3 A DESTRA. * 

310 

REM 

** (MILANO) 

** 

130 

REM"* 

* 

3E0 

REM 

** 

** 

200 

REM" ********************* 

330 

REM 

** VIA GIARDINI N*£0 

** ; 

£10 

PGKE54296 * 1 5 * P0KE54H77 ,05 

340 

REM 

** 

** 


F0KE54E73 , £48 ! P0KE54E76 , 1 7 

350 

REM 

* * tel , © asa/asssse 

*4 

£80 

DEFFNA< X)*RNtX 1 )*150 

380 

REM 

** 

** 

330 

AT= 1 

XXX " :POKE53E30,S 

370 

REM 

************************ 

£40 

e$= "s 

|* !FORK = 1T0E3: B$=B*+'H" : NEXT 
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38Q PRINT W J" :G=54273EP0KE538SÌ ,0 
390 P0KE53467-, 1 6 : P0KE53466 , !6 

400 A = 1 024 ! FORK = 0TO39 s POKEA + K ,91 : P0KEA+993-K , 102 s NEXT 
4 1 0 FORK =0TO39 : P0KE55236 +K ,5 : NEXT 

420 FORK=ATOA+953STEP40 : POKEK , 102 s POKEK +33 , 102 : NEXT 2 A* A +200 
430 FORK =35296TO562353TEP40 : FQKEK , 5 = POKEK +33 , 5 : NEXT 
440 F0RK=56256T056295 : POKEK ,5 i NEXT 

4 50 PPiMT> BntTia>«flmai - va i * ■ 

460 PR 1 NT M e » WW tt gW r — — " TfìBC 34 > " 

470 FORK = 1 T05 ' POKE A+K ,81 : POKEQ , 1 50 J 60 SUB 690 s FOR J ~ 1 TQFNAt 1)1 
NEXT; POKE A+K, 32 
430 FGKEQ ,8 ! NEXT 
430 IFRND< 1 X . 3THEN470 
560 1FRKCK 1 X .4THEN520 

5 10 I4=A +6 s S * I * GOTO570 

520 FORK * 1 T05 : POKEA +39 -K ,81 ! POKEQ , 150 s GOSUB690 S FORJ =» 1 TOFNA< i >:NEXT 

530 POKEA+39-K ,32 : POKEQ, 0 = NEXT 

540 IFRNO< 1 X - 3THEN520 

550 IFRNDC 1 X .4THEN470 

560 UJ=A+33 ! S=- 1 

570 PL=PL + 1 SPRINT “M 4, TfìB< 1 7 ) PLJ PT M B" ! I FPL = 1 1 THEN720 
580 PE=PEEK< W+40*Y> 

530 IFPE=86THENGOTO710 

600 POKEW+40*Y,8i:POKEQ,FNA< 1> 

610 OOSUBB90 

620 POKEU+40*Y,PE : POKEQ ,0 

830 IFY>9AN0Y< 13AN0RND( 1 ) > * 8THENPE = PEEK< W+40# Y+S > : GOSUB780 : GOTO580 

640 IFRIMOC IX . 5THENW=L4+S e 6OTO5S0 

650 Y = Y+2 • IFY< I9THEN580 

660 1 F Y > 1 3THE NOP ® 1 02 s G0T06 80 

670 OR = 32 

680 POKEW+40*< Y-l > ,OP* Y*0 : Ul*0 i S*0 s GOSUB800 : GOTD470 

690 XI =X!X = XK PEEKC P>=43) +< PEEK< P>~40> i IFX< 1 ORX >34THENX «X 1 

700 PRINTBSTABC X>AS: RETURN 

7 10 FORL =0TO255 e POKEQ, L* NEXT i POKEQ, 0 i PT»PT+ 1 iPRI NT w M w TaB< £0>PT” 
IfrH-fiT ! Y=0 s GOTO520 

720 P R I NT " hJ Hai PRESO "PT" PALLE SU 10* 

730 FORK=ÌTO20EGETA^iNEXT 

740 PR INTIMO GIOCHI ANCORA < S/N) ?" 

750 GETAÌe IFASK >”S W ANDA*< >"N m THEN750 
“30 IFAS = '* S “THENRUN 
770 END e END 

730 POK E LI + 40* Y+S , 33 * 14-UI -5 * 3 e POKE W +4 0 * Y , S l ! POKEW+40 *Y+6 *S , PE * 
POKEW+40*Y,32ES»-S 

790 FORKK = 100TG250STEP4 : POKEQ, KM NEXT: POKEQ ,0 ! RETURN 
800 FORKK= ITO50 : POKEQ, FNA< 1 >i NEXT : POKEQ # 0 ; RETURN 
810 REM " 

READY. 
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Vie 20 & Commodore 64 


Tecniche 


DI 

Overlay 


Avvertenza: per seguire il pre- 
sente articolo, il cui contenuto si 
rivelerà utilissimo per chiunque 
possegga un apparecchio Com- 
modore, consigliamo di leggerlo 
avendo vicino il calcolatore, in 
modo da seguire alla lettera le 
operazioni da compiere. 

p ^opportuno altresi che il letto- 
re sappia in che modo è organiz- 
zata la memoria RAM del pro- 
prio sistema, almeno per ciò che 
riguarda l'allocazione dei pro- 
grammi basic e delle variabili (nu- 
meriche e stringa). A tale scopo 
si consiglia di approfondire gli ar- 
gomenti, sommariamente accen- 
nati, nel riquadro al lato. 

L'esigenza dell'overlay 

Al volte capita (e chi possiede 
un VIC 20 inespanso lo sa fin 
troppo bene! } che alcuni pro- 
gramm i non possono essere ospitai i 
in un computer perchè sono più 
lunghi della memoria disponibile. 
Se infatti si cerca di. digitarli una 
linea alla volta, queste vengono 
accettate fino a che è possibile. 
Tentando di proseguire si ottiene 
nuli 'altro che un messaggio di: 

OUT OF MEMORY ERROR 


che impedisce il proseguimento 
della digitazione. 

A nalogamcnte programmi an- 
che molto brevi, e di conseguen- 
za ** caricabili”, contengono alcu- 
ne istruzioni del tipo DIM che, 
per essere eseguite, richiedono 
una certa quantità di memoria. 

S emigrerebbe che nei casi appe- 
na visti sia impossibile utilizzare i 
programmi stessi avendo a dispo- 
sizione una quantità modesta di 
RAM. 

C^uasi sempre, però, un certo 
numero di linee dì programma 
vengono usate per “inizializzare” 
il programma stesso e non occor- 
rono più nel resto dell'elabora- 
zione. Sarebbe bello se fosse pos- 
sibile caricare tale parte di pro- 
gramma, farla girare, ed in segui- 
to caricare ed utilizzare la secon- 
da parte. Se però si agisce come è 
stato descritto, al momento di 
impartire il RUN, dopo il carica- 
mento della seconda parte, si az- 
zerano tutti i valori delle variabili 
inizializzate precedentemente. 

P er non perdere il conte nuto 
J elle variabili, la Commodore 
specifica che se alla fine della pri- 


ma parte si inserisce, come ulti- 
ma riga del programma, una riga 
del tipo: 

1560 LO AD “SECONDA 
PARTE”, 8 

il programma con tale nome vie- 
ne caricato e “lanciato” senza al- 
terare in nessun modo le variabili 
elaborate dalla prima parte del 
programma stesso. E' indispensa- 
bile, però, che il programma suc- 
cessivo sia più breve di quello che 
lo “chiama”; vedremo tra breve il 
perchè. 

P urtroppo, anche se in effetti 
quanto asserito è vero, non sem- 
bra esserlo se si cerca di applicare 
la semplice regoletta con troppa 
disinvoltura. 

o scopo di capire in quali ca- 
si la procedura può essere appli- 
cata c in quali, al contrario, può 
dar luogo ad inconvenienti di va- 
rio tipo, consigliamo di seguire 
alla lettera le fasi indicate. Al ter- 
mine dell'articolo il lettore sarà 
sorpreso della semplicità con cui 
è possibile aumentare le poten- 
zialità di un personal computer. 

Primo esperimento 

P ase 1). Accendete il computer 
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180 REM COMMODORE COMFUT.CLUB 
READY - 

Fig, 2/a 


oppure, se è acceso, spegnetelo e 
riaccendetelo in modo da esser si- 
curi della sua corretta inizia liz na- 
zione. 

F ase 2) Digitate il programma 
di figura 1 cosi come è pubblica- 
to, tranne la riga 240- Controlla- 
te che funzioni correttamente, 
digitate la riga 240 e registratelo 
su di un disco oppure su di un 
nastro (che numerate con 1), E’ 
ovvio che la sintassi riportata è 
valida per chi utilizza Punita a di- 
schi. Chi si serve del registratore 
a cassette trascriverà semplice- 
mente: 

240 LOAD “PROVA N, 1/B” 

T ale avvertenza (eliminazione 
di “,8”) vale per tutti i brevi li- 
stati presentati nel caso si deside- 
ri ricorrere al registratore. 

F ase 3) Spegnete e riaccendete 
il computer. Digitate il program- 
ma di figura 2, provatelo (otte- 
nendo una serie di zeri), e regi- 
stratelo col nome “PROVA N. 
1/B) nel modo consueto sullo 
stesso disco oppure su un altro 
nastro (N. 2). Utilizzando due 
nastri sì semplificheranno le varie 
operazioni che stiamo per descri- 
vere. 

Fase 4) Caricate, da nastro o di- 
sco, il programma PROVA N. 
1/A e digitate RUN. Ciò che ac- 
cade è piuttosto semplice. Dap- 
prima verrà elaborato il primo 
programma; in seguito (riga 240) 
verrà caricato il listato PROVA 
N. 1/B. La visualizzazione delle 
stesse variabili di prima dimostra 


che nonostante sia stato caricato 
un nuovo programma le variabili 
dichiarate precedentemente non 
vengono in alcun modo alterate. 
Se infatti, airapparìzìonedel 
consueto READY chiediamo il li- 
stato, appare nulTaltro che quel- 
lo di figura 2, vale a dire quello 
caricato e lanciato grazie alla riga 
240. Sembrerebbe che la Com- 
modore abbia proprio ragione. 
Ma,,, è davvero tutto in ordine? 

F a se 5) A questo punto, (vaie a 
dire avendo in memoria il pro- 
gramma PROVA N, 1/B caricato 
dal programma PROVA N- 1/A), 
aggiungiamo una linea qualunque 
come la: 

160 REM COMMODORE 
COMPUT.CLUB (fig. 2a) 


5 e ora chiediamo il listato, esso 
ci apparirà più lungo di una sola 
riga e comunque più breve di 
quello di figura 1 . 

Fase 6) Registriamo il program- 
ma così formato, con lo stesso 
nome di prima in modo che pos- 
sa esser richiamato nuovamente 
dal programma dì figura 1. 

I 1 modo dì effettuare questa 
operazione dovrebbe esser noto 
ma lo riassumiamo brevemente: 

SAVE PROVA N. 1/B*\8 

nel caso si possegga un drive 
1540 o 1541, e: 

SA VE “PROVA N. 1/B” 

utilizzando il nastro 2 (vale a dire 
cancellando il precedente prò- 



100 

REM PROVA N, 1/A 



1 10 

: 



120 

PR I NT "31 N ÌZÌQ PROVA 1 /A M 



130 

A * 1 i B*£ : C *3 = D«4 



140 

E=1.2i F*2.3 



150 

G = 3.4s H =5 ■ 6 



1S0 

frint r;b;c;dj 



170 

print E*f;g;h 



130 

PRlNT " JF 1 NE PROVA 1/A" 



190 

i 



300 

REM QUESTE TRE RIONE 



E 10 

REM SERVONO SOLO PER 



2E3 

REM ALLUNGARE IL ERODO 



330 

: 



240 

LOAD lf PRO VA N. 1/B H /S 



READY, 

Fig. 1 
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Puntatori del basic 

1 / L ' a r ea di memoria disponibile 
(RAM) a disposizione deliziente è for- 
mata da una certa quantità di byte, po- 
sti di seguito, il cui numero dipende 
dal computer adoperato. Negli esempi 
che seguono ci riferiamo al Vie 20 ine- 
spanso e al Commodore 64. 

2/ Nel Vìe 20 la prima locazione libera 
è la 4096. Nel 64 è invece la 2048. Nel 
seguito del testo esse verranno indicate 
con LI (Locazione - Inizio), 

3/ L'ultima locazione occupata da un 
programma Basic varia, come è intuiti- 
vo, a seconda della lunghezza del pro- 
gramma stesso Essa verrà indicata con 


Gestione delle variabili stringa 

J computer Commodore allocano le 
variabili stringa in due zone della me- 
moria. Una di queste si trova al di 
là deirindirizzo di fine basic. Alcune 
variabili, invece, vengono individuate, 
dal Sistema Operativo, all’interno del 
programma basic stesso! 

ale metodo dì memorizzazione dei 
dati (tìpico delle sole variabili stringa), 
che tra breve verrà in parte descritto, 
ha lo scopo di ottimizzare l’occupazio- 
ne della memoria RAM, Vediamo co- 
me: 

S e in un programma basic figura una 
linea del tipo: 

100 A$= “ÀBCDE”: PRINT A$ 
il Sistema operativo non ha motivo dt 
d e p o s 1 1 are ì caratteri alfanumerici 
“ABCDE” in una zona di memoria 
esterna a quella occupata dal program- 
ma basic. Poiché infatti tali caratteri si 
trovano di già in una zona RAM, a 
quale scopo depositarli da qualche al- 
tra parte creando un inutile doppio- 
ne? In altre parole quando il Sistema 
Operativo incontra un'istruzione dei ti- 
po PRINTAÌ, andrà a rintracciare 
l'area della memoria alla quale sono as- 
sociati i vari caratteri. Nel caso del mf 
croprogramma appena visto, questa si 
trova esattamente ad otto byte di di- 
stanza dall'inizio del programma stes- 
so, vale a dire: 2 byte di link, 2 di 


LF (Locazione-Fine). 

4/ 11 cosiddetto “indirizzo” di parten- 
za del programma basic viene calcolato 
esaminado il contenuto dì due locazio- 
ni di memoria, identiche nel caso del 
Vie e del 64. Esse sono la 43 e la 44, 
5/ Per conoscere, dunque, Pindirizzo 
di partenza del programma sarà suffi- 
ciente eseguire il calcolo: 

LI =PEEK(43)+PEEK(44)*25 6 

J n genere il risultato porterà ai valori 
prima visti, vale a dire 4096 nel caso 
del Vie inespanso e 2048 nel 64. 

6j Altre due locazioni (la 45 e la 46) 
contendono, in “codice”, l'indirizzo 

numerazione basic, 2 del nome della 
variabile, 1 per il simbolo (*) ed uno, 
infine, per il simbolo degli apici (**)■ 
Un ragionamento del tutto simile viene 
seguito nel caso di; 

READ A$:,„ DATA “ÀBCDÉ” 

^en diverso è il caso della linea basic: 
100 À$ =“ABC”+“DEF” : PRINT A$ 

J n questo caso (come in tutti i casi 
di manipolazione di stringhe) il Sistema 
Operativo deve allocare La stringa A$ 
(ottenuta come elaborazione di due 
gruppi dì caratteri) in qualche parte 
della memoria, diversa da quella relati- 
va ai prossimi basic. Una cosa è infatti 
dispone dell’ indirizzo di partenza in 
cui si trovano tutti ì caratteri relativi 
alla stringa, altra cosa è invece disporre 
dell 1 indirizzo in cui è situata un’opera- 
zione di concatenazione di stringhe. 
Lo scopo, come già detto, è quello di 
ottimizzare Poccupazione di memoria. 
Per sincerarvene, digitate e fate girare i 
due micro programmi seguenti: 

100 PRINT FRE(0) 

1 10 A$- U ÀBCDEFGHIJ”; PRINT A$: 

PRINT FR£(0) 

... e questo ... 

100 PRINT FRE(0) 

110 A$- “ABCDE” + “FGHIJ”: 
PRINT A$: PRJNT FRE (0) 

(^est 'ultimo -sembra essere più lungo 
del precedente di appena tre byte 
("+”). Infatti è proprio cosi e ce lo 


delTultima locazione interessata dal 
programma basic presente in memoria 
in quel momento: 

LF =PEEK(45 )+PEEK(4ó)* 256 
LF, come già detto, cambia a seconda 
della lunghezza del programma presen- 
te, 

7/ Non appena si accende l'apparec- 
chio, LI coincide con LF. 

8/ Col termine "puntatore” si intende 
il valore numerico della locazione inte- 
ressata in un'operazione. Ad esempio 
le locazioni 43 e 44 “puntano” all' Ini- 
zio del programma basic, mentre le 45 
e 46 puntano alla sua fine. 

dimostra il valore di FRE(G) che appa- 
re prima della visualizzazione di ÀBC- 
DEFGHIJ. D secondo valore che appa- 
re, indica, invece, il numero di byte a 
disposizione dopo che la variabile À$ è 
stata dichiarata. Mentre nel primo pro- 
gramma la variabile AS è all'interno 
del programma stesso, nel caso succes- 
sivo AS costituisce il risultato di una 
manipolazione e viene pertanto situata 
automaticamente in altra zona occu- 
pando, di conseguenza una quantità di 
memoria maggiore, rispetto al prece- 
dente macroprogramma, del numero di 
caratteri costituenti la stringa somma. 

Conclusioni 

1) Se in un programma viene definita 
una variabile stringa, essa non occupa 
altra zona se non quella all'interno del 
programma basic stesso e viene indi- 
viduata da puntatori che, nonostante 
siano situati, come tutti i puntatori, al 
di fuori del farea destinata al basic, 
puntano a quelle locazioni dì memoria. 

2) Se la variabile stringa è il frutto in- 
vece di una manipolazione (RIGHTS 
LEFTS eco.) di una somma (À$+B$), 
essa viene allocata, come i suoi punta- 
tori, in una zona situata al di fuori del- 
l'area riservata ai programmi basic. 

U na descrizione dettagliata di come il 
Sistema Operativo gestisce le stringhe 
ed i suoi puntatori esula dallo scopo 
del presente articolo. 
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100 REM PROVA N. 1/B 


] 10 PRINT 



120 PRINT 

•alNIZ IO PROVA 1 /B" 


130 PRINT 

a; b;c; d; 


140 PRINT 

e;f;g?h 


150 PRINT 

"*MN£ PROVA 1/B “ 


READY . 


Fig. 2 


gramma ivi registrato) nel caso si 
usi il registratore, 

F ase 7) Spegnete, riaccendete e 
caricate da nastro o disco il ^vec- 
chio” program ma d i figur a 1 
(PROVA N. 1/A), 

I tripartite il RUN. Le istruzioni 
del primo programma, come è fa- 
cile verificare, vengono corretta- 
mente eseguite. Non appena, pe- 
rò, viene caricato e lanciato il se- 
condo programma ci accorgiamo 
che il risultato è diverso da quel- 
lo visto nella fase 4* Ciò è acca- 
duto, come vedremo tra breve, 
perchè il secondo programma è 
pili lungo del primo ! Come è 
possibile che ciò sia avvenuto? 
Chiediamo il listato (LIST): esso 
è proprio identico a quello di fi- 
gura 2 con in piu la sola riga ag- 
giunta nella fase 5: è comunque 
ben più breve del primo! 

Ebbene il secondo programma 
sembra più breve del primo, ma 
risulta effettivamente più lungo. 
Vediamo di spiegarcene il perchè, 

T orniamo ad esaminare la fase 
4 e confrontiamola con quanto 
segue. Quando il programma 
PROVA N. 1/A, giunto alla riga 


240, carica il programma PRO- 
VA N, 1/B, questo viene allocato 
a partire da LI, I puntatori di LF 
rimangono però inalterati Ciò è 
dovuto al fatto che le variabili 
precedentemente dichiarate ini- 
ziano a partire da LF, Dunque se 
un programma, ad un certo pun- 
to di un'elaborazione, “chiama” 
un altro programma, questo, do- 
po il caricamento, viene conside- 
rato lungo quanto il precedente 
anche se è composto da una sola 
rigai . Pertanto il sistema operati- 
vo del computer “vede”, dopo il 


caricamento di un programma, 
un listato che termina in LF, Se a 
questo punto aggiungiamo una ri- 
ga, questa viene allocata come di 
consueto, ed i puntatori di fine 
basic, di conseguenza, alterati co- 
me se fosse stata aggiunta ad un 
programma più lungo. Quanto 
descritto è proprio Terrore che 
( intenzionalmente) vi abbiamo 
fatto commettere aggiungendo la 
riga 160 nella fase 5, Questa è 
stata infatti aggiunta dopo che il 
programma di figura 2 era stato 
caricato automaticamente da 
PROVA N. 1/A* Ciò dimostra 
che effettivamente, nel caso di ri- 
corso a tecniche overlay, è indi- 
spensabile che il primo program- 
ma da caricare in memoria sia il 
più lungo di quello o quelli che 
in seguito saranno richiamati in 
cascata. La spiegazione dell' in- 
conveniente è piuttosto semplice. 
Dopo l'area basic inizia l’area del- 
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100 

REM PROVA N.2/A 

1 10 

t 

1£0 

PRINT * J»iNI ZIO PROVA 2/A” 

130 

A = i i B =£ * C =3 s D = 4 

140 

E 51 1 * 2 ! F*£ . 3 

150 

G*3 , 4 : H-5.B 

180 

print ajb;c;d; 

170 

print e;f;g;h 

130 

PRINT “INIZIO MEMORIA = H ; 

190 

PRINT PEEKC 43 > +FEEK< 44 > *256 

200 

PRINT "PI NE MEMORIA « - 1 

2 10 

PRINT FEEK< 45 ) +PEEKC 46 D *256 

220 

PRINT ‘^INE PROVA N.2/A” 

230 

s 

240 

REM QUESTE TRE RIGHE 

£50 

REM SERVONO SOLO PER 

260 

REM ALLUNGARE IL BRODO 

270 

: 

28© 

LORO " PROVA N.a/B M ,3 

READY. Fig. 3 
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100 REM PROVA N.E/B 
1 10 t 

1S0 PRINT "aiNIZIO PROVA E/ 6 * 

130 PR I NT selcio* 

140 pr ! nt e;f;g;h 
150 PRINT PEEKC 43)+PEEK< 44>*E56 
ISO PRINT PEEK< 43 > +PEEKC 46 > *256 
170 PRINT *3F I NE PROVA 2/B" 

READY. Fig. 4 

180 REM COMMODORE C0MPUT.CLU8 

READY, 4/3 




le variabili. Se "invadiamo” una 
zona di quest* alt ima con un pro- 
gramma, la “coda” dì questo ne 
cancella alcune ed esattamente 
quelle che per prime erano state 
dichiarate nel corso dell’elabora- 
zio ne del primo programma. 

Verifica del primo esperimento 

1/ Per verificare quanto è stato 
affermato, digitare il programma 
PROVA N. 21 A (figura 3) senza 
la linea 280; dopo aver verificato 
che funziona correttamente, digi- 
tare la riga 280 e registrarlo col 
nome PROVA N, 2/A. 

2/ Per sicurezza spegnete, riac- 
cendete c digitate il programma 
PROVA N. 2/B (figura 4), Una 
volta controllatone il corretto 
funzionamento, trascrivete su di 
un foglio di carta i valori forniti 
dalle righe 150 e 160, Registrate- 
lo dunque col nome PROVA N. 
2/B in modo che in seguito possa 
esser richiamato dal programma 
dì figura 3, 

3/ Carichiamo PROVA N. 2/A e 
“lanciamolo”. Al termine del- 
l’claboraz Ione {dopo cioè che vie- 
ì 6 Computer Club 


ne caricato e lanciato PROVA N. 
2/B riga 280), ci accorgiamo che 
il secondo programma, benché 
più breve del primo, possiede gli 
stessi puntatori di fine basic. In 
ogni caso ì puntatori indicano va- 
lori maggiori di quelli preceden- 
temente trascritti sul foglio di 
carta, 

4/ Col programma PROVA N, 
2/B (che c ora allocato in memo- 
ria perchè richiamato da PROVA 
N, 2/AJ, aggiungiamo la riga 180 
di figura 2b oppure una qualsiasi 
altra riga. 

5/ Digitiamo RUN e Return, \ va- 
lori delle variabili (AjBjCJDjEJF) 
sono ovviamente tutti nulli non 
solo perchè è stato dato il RUN, 
ma anche perchè è stata aggiunta 
una riga. Ricordiamo, per inciso, 
che 1* inserimento, la cancellazio- 
ne o la semplice modifica di una 
riga del programma azzera sem- 
pre e comunque qualsiasi variabi- 
le memorizzata, 

P ossiamo dunque notare che i 
puntatori di fine basic (riga 160) 
vengono incrementati. 


Conclusioni sul primo 
esperimento 

1/ In un programma è possibile, 
mantenendo inalterate le variabili 
numeriche, dare l’ordine di cari- 
care un altro programma, purché 
quest’ultimo sia piu breve o al 
massimo di eguale lunghezza dì 
quello “chiamante”, 

2/ Il programma chiamato non 
deve in nessun caso essere mani- 
polato, pena la perdita della ca- 
ratteristica di “brevità”, 

3/ Nel caso si desideri modificare 
il programma chiamato, procede- 
re come segue: 

• spegnere e riaccendere il com- 
puter; 

* caricare il programma che si de- 
sidera modificare; 

■ modificarlo e registrarlo nuova- 
mente con lo stesso nome di pri- 
ma avendo l’accortezza di verifi- 
care che le modifiche apportate 
non l’abbiano reso più lungo del 
programma che in seguito lo 
chiamerà. Per conoscere la quan- 
tità di byte occupata da un pro- 
gramma, digitare NON il sempli- 
ce PRINT FRE(G) ma: 

CLK i RESTORE: PRINT 
FRE(O) (Return). 

Secondo esperimento 

P er seguire senza difficoltà 
quanto segue, si consiglia di com- 
prenderne dapprima il secondo 
riquadro pubblicato, 

P ase 1) Spegnate e riaccendete 
il computer. Digitate, cosi com’è 
pubblicato (senza alcuna modifi- 
ca), il programma di figura 5, 
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CORSI DI PROGRAMMAZIONE 
PRODUZIONE SOFTWARE 
ASSISTENZA SOFTWARE 
ASSISTENZA TECNICA 
LIBRERIA JACKSON 


COMMODORE 64 


PERSONAL COMPUTER 


PERIFERICHE COMMODORE 


ACCESSORI 


HELIS - VIA MONTASIO 28 - ROMA - TEL. 06/8922756 


COMPUTER 


COMMODORE SHOP • L’UFFICIO 2000 

VENDITA • ASSISTENZA TECNICA • APPLICAZIONI SPECIALI * PERMUTE E OCCASIONI 

- colmare la lacuna dì disinformazione attorno ai 64 

- fornire uno strumento guida a tutti gli utilizzatori interessati 

- mettere a disposizione di tutti i nostri 8 anni di esperienza Commodore 
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064 LIBRO BLU 064 


COS’E? 

Una raccolta seria di "co- 
se" software e hardware 
esistenti sul 64. 

Una illustrazione dettaglia- 
ta dalla biblioteca pro- 
grammi: UTILITY - DEMO - 
GESTIONALI - TECNICO 
SCIENTIFICO - DIDATTI- 
CI - VARIE. 

Un approccio con l'hard- 
ware del 64 e relative peri- 
feriche per un corretto uti- 
lizzo e una prima manuten- 
zione. 


A COSA SERVE? 

Ad orientarsi nel convulso 
mondo della microinforma- 
tica dove, mancando una 
informazione guidata ed 
organica spesso si spreca- 
no tempo e soldi in vane ri- 
cerche. 


A CHI SERVE? 

È inutile dirlo. A tutti. 

A chi possiede già un 64 o 
un qualsiasi computer Com- 
modore. 

E a chi pensa di acquistar- 
ne uno. 


COME AVERLO? 

Basta richiederlo per posta 
o per telefono. 

Costa £ 25.000 e viene in- 
viato pagando contrasse- 
gno. 


LISTA OCCASIONI: KIT DIAGNOSTICO PER 8250 - TEST ALLINEAMEN- 
TO TESTINE PER FLOPPY 1541 - STAMPANTI AD 
AGHI E A MARGHERITA - DRIVES DA 5". 


L'UFFICIO 2000 - Via Ripamonti, 21 3 - MILANO - Tel. 02/5696570 / 5696573 - APERTO ANCHE pi SABATO 
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100 

REM PROVA STRINGHE 1/A 


1 10 

A$=" A. DE S I MONE " 


1E0 

B*= "C.C.CLUB " 


130 

C*= "a"+AS4B* 


i 40 

FRI NT A*,B*,C$s PRINT 


15?! 

REM RIGA DI RIEMPITIVO 


1E0 

REM RIGA DI RIEMPITIVO 


170 

REM RIGA DI RIEMPITIVO 


ISO 

LO AD "STRINGHE N,l/B",8 


READY . 

Fig. 5 


(PROVA STRINGHE 1/A) privo 
delia riga 1 80 in modo da evitare 
un FILE NOT FQUND ERROR. 
Verificatelo e registratelo dopo 
aver aggiunto la riga 180* 

F ase 2) Spegnete e riaccendete 
il computer. Digitate e registrate 
(col nome STRINGHE N. 1/B), 
dopo un opportuno controllo» il 
listato di figura 6 avendo l’accor- 
tezza di trascrìverlo senza alcuna 
modifica. In particolare facciamo 
notare la coppia di doppi punti 
(::} presenti» dopo i REM, nelle 
righe 110 e 120, 

F ase 3) Spegnete e riaccendete 
il computer. Caricate e lanciate il 
programma PROVA STRINGHE 
1/A*,. Sorpresa! 


saremmo aspettati (le stringhe 
AS e B$ di riga 110 e 120 del 
primo programma), compaiono 
sullo schermo i caratteri delle ri- 
ghe 110 e 120 del secondo pro- 
gramma nonostante siano prece- 
duti da due istruzioni REM. Che 
cosa è successo? 

E saminiamo con attenzione il 
listato di figura 5. Le righe 110 c 
12 0 definiscono una stringa, 
mentre la 130 effettua una con- 
catenazione tra stringhe, il Siste- 
ma Operativo del calcolatore, di 
conseguenza, individuerà AS c 
BS mediante puntatori che pun- 
teranno all interno del program- 
ma* Per CE, invece, sia i punta- 
tori che ì caratteri costituenti CS, 
si troveranno al di fuori dell'area 


come già visto nel primo esperi- 
mento, non vengono modificati 
e, se nel visualizzare CS non sor- 
gono problemi, ne sorgono, ecco- 
me, nel far apparire AS e BS* I 
puntatori di queste variabili, in- 
fatti, puntano ancora alle loca- 
zioni di inizio stringhe del primo 
programma che, dopo il carica- 
mento del secondo listato, non 
contengono più i caratteri di riga 
110 e 120, ma quelli situati dopo 
le REM del nuovo programma. 

Ecco spiegato il perchè dell'in- 
solita visualizzazione, come pure 
il motivo dei due caratteri di 
do p pio punto situati dopo i 
REM. In questo modo, i due pro- 
grammi di figura 5 c 6 risultano 
(per ciò che riguarda le righe 
100, 110 e 120) perfettamente 
identici agli effetti del funziona- 
mento dei puntatori. 

Conclusioni sul secondo 
esperimento 

1) Il programma chiamante non 
deve contenere istruzioni del ti- 
po ' 

AS * “NOME” 
oppure 

READ AS.*.. DATA “NOME” 

I n caso contrario se la variabile 
stringa viene interessata dai pro- 
gramma chiamato in overlay, nel 
migliore dei casi compaiono ca- 
ratteri incomprensibili, nel peg- 
giore possono verificarsi malfun- 
zionamenti di tale entità da esse- 
re costretti ad interrompere l'ela- 
borazione* 


I nvece di visualizzare, in segui- 
to al caricamento automatico di 
riga 180, ciò che ingenuamente ci 


iO0 REM PROVA STRINGHE 1 SB 
1 10 REM ; i "ATTENZ IONE H M " 

1E0 REMs e “GUARDA ! \ ” 
i 30 PRINT 

READY- Fig* 6 


basic* 

(Quando la riga 180 carica il se- 
condo listato, tutti i puntatori. 
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2) E 1 pertanto necessario - pur- 
troppo - esaminare riga per riga il 
programma chiamante e mortifi- 
care tutte le variabili stringa defi- 
nite nei modo AS = “NOME”, 
Un suggerimento; l'istruzione*» 
AS - “NOME” 

,*, modificatela in *,. 

AS - Uu + “NOME” (vale a dire 
stringa nulla + “NOME”) 


come si vede, occupa un numero 
di byte decisamente superiore. 

Ebbene, le fasi da seguire sono 
le seguenti: 

1/ Digitare il programma più bre- 
ve (fig 7) e registrarlo col nome 
“BREVE". 

2/ Digitare il programma di figu- 
r a 8 e registrarlo col nome 


100 REM PROGRAMMA BREVE 
1 1C A=10: B =20 s 030 
133 LOAD "LUNGO ",S 

READY. 


Fig* 7 


,» oppure », 

READ AS: A$ = + AS: DA- 

TA “NOME" 

READ AS (1): AS (I) = + AS 

(1); DATA “NOME" 

Terzo esperimento 
(o meglio*» trucco) 

C ome caricare dapprima un 
programma breve e poi uno più 
lungo? 

^Vlcuni testi suggeriscono di al- 
terare i puntatori di inizio c line 
basic prima di effettuare l'opera- 
zione che, in effetti, è “proibi- 
ta", dato che, come abbiamo vi- 
sto, distrugge parte delle variabili 
già elaborate. 

i 

però possibile effettuare 
l’operazione in modo semplicissi- 
mo, Supponiamo di voler utiliz- 
zare dapprima il programma di fi- 
gura 7 che, giunto alla riga 120, 
riceve l’ordine di caricare il pro- 
gramma “ lungo** (figura 8) che, 


“LUNGO”, 

3/ A questo punto (avendo cioè 
“LUNGO" in memoria] digitare 
RUN 210, Questa operazione ca- 
richerà il programma “BREVE" 
e lo renderà, come abbiamo avu- 
to modo di studiare, di lunghezza 
eguale a “LUNGO". Dopo l’eia- 
borazione verrà richiamato (riga 
120) nuovamente il listato di fi- 
gura 8 che risulta essere di lun- 


ghezza pari (ma guarda un po’,») 
al programma chiamante! 

Applicazione pratica 

I 1 lettore Marco Navalesi, che 
possiede un Vie 20 inespanso, ha 
i nviato un programma decisa- 
mente interessante sotto molti 
punti di vista* 

P ubblichiamo pertanto il lista- 
to originale e quello diviso in due 
tronconi che sì richiamano a vi- 
cenda con la tecnica appena de- 
scritta. 

E ovvio che bisogna caricare 
dapprima la parte due e digitare 
RUN 450. Questa operazione, tra 
l'altro, dimostra non solo che è 
possibile aumentare “virtualmen- 
te" la memoria del Vie inespan- 
so, ma evidenzia anche il sempli- 
cissimo trucco per caricare dap- 
prima un listato breve e poi un 
programma lungo, » 

Alff&undro De Si morte 


100 

REM PROGRAMMA LUNGO 


J 10 

: 


120 

FRI NT A: PRINT B§ FRI NT C 


130 

i 


140 

REM QUESTE RIGHE 


150 

REM SERVONO SOLO PER 


1B0 

REM ALLUNGARE IL 


170 

REM BRODO - 


1 80 

; 


130 

END * REM PENULTIMA RIGA 


230 

ESEGUIRE i RUN £Ì0 


210 

LO AD 11 BREVE " ,8 


READY, 




Fig. 8 
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Vie 20 Inespanso 


S i hanno due minuti nei quali 
è possibile distruggere più 
astronavi nemiche, il programma 
gira sul Vìe 20 inespanso ed è be- 
ne non inserire spazi nelle linee 
perchè il programma occupa tut- 
ta la memoria. I comandi sono: 

per far ruotare l’astronave in 
senso orario, in senso antiora- 
rio, “/" per sparare, ed i tasti 
Shift e Commodore per far muo- 
vere a varie velocità l’astronave. 
Questo programma è molto irne- 
r c s s ante perchè usa tutto lo 
schermo del televisore, grazie ad 
una mappa di 28 x 36 (occupa 
1 0 0 8 b y tes). Questo avviene 


Vie 

Battle 



agendo sulle locazioni 36866 e 
36867, facendo partire la mappa 
dello schermo da 7168 invece 
che 7680, e centrando poi lo 
schermo sul televisore modifican- 
do le locazioni 36864 e 36865. I 
caratteri definiti dall’utente sono 
posti tra 6144 e 7168 (e questo 
spiega perchè il programma è così 
corto - circa 2K). Un’ultima pun- 
tualizzazione; l’istruzione Peek 
(633) nella linea 36 determina se 
sono stati premuti i tasti Shift, 
Commodore o Ctrl. ■ 

Marca Navi I hi 

Via Matteotti, 91 - 54011 Àulla IMassa) 

TeL 0187/403627 prsfer, h 18 


100 REM *** VIC BATTLE PARTE UNO *** 

110 REM *** *** 

120 REM *** BY MARCO NAVALESI *** 

130 REM *** & OVERLAY BY A. DE SIMOhE *** 

140 £ 

150 PDKE56,24 :PQKE5£,24 : CLR = GDSUB230 : P0KE36879 ,8 ! PR 1 NTCHR*C 8) l 
'A = 30720 i S ? “29 

180 VS = 36377 i V I *36878 l POKE V l , l5:L=0iOC 1> = -1 3 D< 2)*-29!D( 3) = “28 = 

DC 4>=-£7*0< 5 > =* 1 

170 0< 7 ) =28 £ D< 8 > =27 t LK 1 )=84sW( 2) *77* W< 3)=33iUK 4>*7B:W< 5 ) =64 i UK 6 ? - 77 * UK 7 >=93 
180 P0KE3SS66 ,28 * PQKE3B867 , 72 s POKE36864 ,7 1P0KE36865 , 19 J POKE 84 8 ,28 SFR INT*U" 
180 P0KE648 >30 SPRINT" J* JFQR I =0 TOS t P0KE7674 + I , 32 : P0KE7674 +A + I , 1 t NEXT S Wt 8 > « 78 
200 P = 7680!R = 1 tUl=32!U=7800sRl = l iF0Rl = lT099iP0KE7lB3 + RND< 1 > * 1 008 , 74+RND< 1 > *2 
210 NEXTiPl=32<F0RI = ÌT0Ì5iP0KE7168+RND< 1 > * 1008 , 76 : NEXTi T I "000080 41 
220 LOAO "BATTLE2* ,8 

230 POR I ~0TQ 1 023 i P0KE6 144+1 ,PEEK< 32768+1 ) = 

NEXT* POKE 3886 9 ,254 - FOR I «0TO87 i REAOA 
240 POKE 66 72+ I , Al NEXT i RETURN 
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250 DATA© ,7 , 30 ,254 ,30 ,7,0 ,0,0 , 64 ,48,60,31 ,30/12,4, 

16, L6, 16,56,50,124/124,88 

260 DATA0,2, 12,80,246, 120,48, 16,0,224, 120,127, 120,224,0,0, 

1S, 43, 120,248,60, 12 

270 DATA2,0 ,66, 124,124,56,56,16,16,16,8,12,30,31 ,60,43,64 ,0, 

0,0, S, 0,0, 0,0, 0,0 

880 DA TAO, 0,0, 84, 0,0, 0,0, 0,0, 6, 6, 0,3,0 

READY, ^ 


100 REM #** VIC BATTLE PARTE DUE 
1 10 REM *** 

120 REM + ** BT MARCO NAVALE3 I 

130 REM *** & OVERLAY BY A . DE SI MONE 

140 : 

15© T = PEEK< 197)IQ S 0! £FT=£3THENQ*-1 sPOKEVSM ,225 

16© IFT-3?THEMQ=1 JPQKEVS- 1 ,227 

170 IP'T =30THEN3£0 

180 R=R4Q! IFR< 1THENR-8 

130 PDKEVS-1 ,0: IFR>8THENR=i 

260 POKER, PI ìP= F+PEEK-: 653 ) *D< R > : Ir P >8 17STHENP-F - 1003 

2 10 IFP< 7 163THENP = P+ 1003 

E20 P 1 =PEEKC P ? : POKER ,65 +R t PQKEP +A , 7 i IFP 1 -85 1 THEN440 

230 IFRNCK 1 ? > ■ 6THEMR 1 1 + 1NT( RNO< 1 >*3 1 S POKE VS , 235+RND< 1 > *13 

240 I F R 1 < 1 THE MR 1=8 
256 IFR 1 >STHENR 1 * 1 

280 POKE V 3 , 0 s POKEU ,U 1 :U=U-tDì; R 1 > : IFU >8 176THENU*U- 1068 
2TD I FU < 7 1 6STHEMU a U + 1 0 OS 

£30 U 1 EKC U ) s PCKEU/S5+R 1 s POKEU + A ,5! IFU 1 -65+RTHEN440 
830 IFTI$; "0S0200 “THEN150 
300 PR 1NT "SMTEMFO SCADUTO" ; 

3 10 FR I NT 11 StSFUNTEGG IO ! M SC : SC=0:FGR i = 1 TO3080 : NEXT : WA I T 1 37 , 63 ! GGTO450 
320 I FF< >OTHEN340 

330 Y = DC R > SF 1 =R + 65 : F a P : L = 0 1K=R iG = PEEK< 36863 >0R 12B 
340 POKEVS- 1 ,GiF=F+YiF 1 *FEEKC F > ì FQftEF ,UK K > 

350 IPF< 7 1 GSORF >3 1 7STHENFDKEF , F 1 :PQKEVS-1 ,0! GOTO 130 

360 PGKE7S * i ,0 i IFFI =R1 +65THEN430 

370 L “L + 1 i :F^=13THENF0Kt F,F1 JF-0*GOTO180 

ODO POKEF ,F 1 ! GOTQ340 

330 POKEU , 42 s F0R 1 = 1 T04 * FOR J = 1 TOB * POKEU +D< J>*I ,RNDC i>*2+74! 

POKE VS ,£20+J*3!NEXTJ , I 

400 FOR I« 1TQ4 :FGRJ*1TGS : FOKEUrD< J > *1 ,32 : FOKEV i , 15-1*3:NEXTJ , I 
410 POKEVS/0IPOKEVI , 15 : POKEU ,32 s U=716S+ 1NTC RND'C 1 > *23 > i U 1 =32 a F =0 
420 R 1 = INTC RND< 1 ) *8 + I > : RETURN 

430 GOSUB330* SC = 3C+I ' FOR I = 1 TO 10 a FQKE7 168 +RNDC 1 ) 

* 1 00B ,RNDt 1 >*2 + 74 sNEXT;GOTO 1S0 
440 60 SUB 330 a PR I NT * 33 COLL I S 1 ONE ” ; : GOTO 3 10 
45© L 0 A D " B A TTLE 1 “ , 8 

► 

READY. 


*** 

* * * 
*** 
* * * 


Compu ter Club ■ 21 



Vie 20, ORA 



CHE CE L’HAI... 



Lo sai perchè VIC 20 va a ruba? 

Provalo e scopri quante cose fa in più ! 

1. VIC 20 ha una valanga di videogiochi , uno più 
bello dell'altro, uno più nuovo dell'altro... e ì 
successi dalle sale-giochi. 

2. Ma VIC 20 è un vero computer t e fa molto molto 
di più. 

3. Lo usi per la scuola, o per la casa, o per la 
professione . Trovi subito pronti un sacco di 
programmi. 

Metti le cassette e via con cose utili . E nessun 
videogame ha i programmi dei VIC. 


4. VIC 20 ti serve per imparare il BASIC t la lìngua 
del futuro (ed è facile imparare a programmare). 

5. Nel mondo sono stati venduti più di un milione 
dì VIC, a gente sveglia, quelli del 2000. 

6. VIC 20 ha sempre un prezzo da sballo: costa 
solo 199.000 lire più IVA . E oggi lo trovi subito. 


Commodore 

COMPUTER 


ETHOS 



•29 
= 1 


13S GOSUB 129 i SC = SC+ 1 : FDR I = ITO 10 : POKE7 168+RNO< 1 1*1008, RNCK 1 1 *£>*74 t NEXT! G0T034 
200 GOSUB 129SPR INT"8B COLL I 5 IONE " 1 : G0T05 1 

3000 FOR I=0TO 1023 :PQKE6 144+1 ,PEEK( 3276S+I > : NEXT i P0KE36668 , 

254 SFORI «0TOB7 i READA 
9010 P0K£6B72+I,A!NEXTiRETURN 

9020 DATA0,7 ,30,254,30 ,7 ,0,0 ,0,64 ,48,60 ,31 ,30 ,12,4,16, 

18,18,56,56,124,124,68 

9030 DATA0 ,2, 12,60,248 , 120,48 , 16,0,224 ,120, 127,120,224, 
0,0,16,48,120,248,60,12 

9040 DftTfl2, 0,68, 124,124,56,56,16, 16,18,8,12,30,31 ,80,49,64, 

0 , 0 , 0 , 9 , 0 , 0 , 0 , 0 , 0, 0 

9050 DATA0, 0,0, 64, 0,0,0, 0,0, 0,6,6, 0,0,0 
READY. 


■0 REM VIC BATTLE -M . NAVALES I 1 

1 P0KE56 , 24 s P0KE52 , 24 S CLR ( G0SUB9000 i POKE36879 , 8 s PR I NTCHR*< 8 1 ! A=30720 ! D< 6 1 

2 VS = 38877iV 1=36878! POKEV I , 15 IL=0IO< 1 >“-l IO< 2>»-29!D< 3) »-2B 1D< 4 )--27*0< 5) 

3 0< 7 > =28 S OC 8) =27! W< 1 >=64 ! LK 21=77iLK 31=93!W< 4 >=78! UK 5 1 =64 i l*K 6 1 =77 i WC 7 ) =93 

4 POKE 36866 ,281 P0KE36867 ,72 ! POKE 36 864 ,7 IFOKE36865 , 1 9 ! P0KES48,28 i PR INT’ J“ | 

5 P0KE648 ,30 ! PR INT ’iJ" ! FOR I =0TO5 ! F0KE7674+ I ,32 i POKE7674 +A+ 1 ,HNEXT!UK 0)«78 

6 P=7680:R* 1 ! U 1 =32 i U=7S00 !R 1 = 1 ì FOR 1 = 1T089 ! P0KE7 I68+RNDC 1 1 * 1008 ,?4+RN0< 111 

7 KEXT! P 1 =32 ! FOR 1 = 1 TO 15 1 PQKE7 168+RKCC 1 1 * 1008 ,76 : NEXT: T I *■ "000000 “ 

30 T=PEEKC 197 1 1 0=0 1 IFT=29THENQ = - 1 ! POKEVS- 1 ,225 

32 IFT=37THENQ=1 iPOKEVS-1 ,227 

33 IFT=30THEN100 

34 R = R + Q! IFRC ITHENR=8 

35 FOKEVS- 1,0! IFR J8THENR= 1 

36 POKER, PI iP = P+PEEKC 6531*D< RI ! 1FP >B176THENR=P- 1008 

37 !FP<: 7 168THENP=P+ 1008 

38 P 1 =PEEK( P 1 i POKEP ,65 + R i PQKEP+A ,7 ! IFP 1 =65+R 1THEN200 

40 IFRNO< 1.) l.STHENR 1 =R 1 + INT< RNDC 11*31-1 i POKEVS ,235 +RNO< 11*18 

42 IFR1< 1THEKF 1 =8 

43 IFR 1 18THENR 1 “ 1 

44 POKEVS ,0 ! POKEU ,U 1 !U=U+0( RI 1 « IFU18 176THENU»U- 100B 

45 IFU< 7 168THENU=U + 1008 

48 U 1 =PEEK< U) ! FOKEU ,65 +R 1 !P0KEU+A,5: 1FU 1 =S5+RTHEN200 

49 IFTI*< *000200 "THEN30 

50 PR INT u aaTEMPO SCADUTO "1 

5 1 PR I ITT " BPUNTEGG IO i " SC ! SC =0 ! FOR 1 = 1 TO3000 ! NEXT ! WA I T 1 97 , 63 ! G0T02 
100 1FF< 10THEN1 10 

102 Y=D< RI !Fl=R + 65iF=P!L=0iK=R:G = PEEK< 3686810R128 

1 10 POKEVS- 1 ,G!F=F+YIF 1=PEEK< F 1 :POKEF , UK K 1 

1 11 IFF< 7 1 680RF >81 76THENP0KEF ,F 1 :P0KEVS-1 ,0:GOTO34 

120 POKEVS-1 ,0: IFF 1 =R 1 +65THEN132 

121 L=L + 1 ! IFL = 12THENP0KEF ,F 1 ! F=0 : GOTO 34 

122 POKEF ,F 1 : GOTO 110 

129 POKEU ,42 : FOR 1 = 1 T04 ■ FOR J = 1 T08 ! POKEU+DC J1*I,RND< 1 1*2 + 74! 

POKEVS ,220+ J *3 i NEXTJ , I 

130 FOR 1 = 1 T04 : FOR J = 1 T08 ! POKEU +D( J > * I ,32 ! POKE V 1 , 15-1*3: NEXTJ , 1 

131 POKEVS, 0 tPOKÉV 1,15! POKEU, 32 :U =71 68 +INT(RNDC 11*281! 

U 1 = 32 ! F = 0 ! R 1 • I NT ( RND< 11*8+11 : RETURN 
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ve 


.< 20 

SPECTRE 


Vie Forth 


Sterposi 


SpGCtfe 


Basic parte 1* 


Basic parte 2 ' 


Fai t fai, fai. Per il tuo WC 20 ci sono, subito pronti, 
programmi interessantissimi: didattici, scientifici , 
di statistica, e altri per aumentare le capacità dei 
WC e imparare a programmare giocando. (Così 
a questi programmi puoi aggiungere i tuoi!). 

WC 20 ti serve per un sacco di 
cose : per risolvere problemi a 
scuota t per ta casa, per gestire 
// bilancio: spese, introiti, jflj 

banca, auto. Ma non solo. 

Ha giochi da sballo t e ^ 

arrivano novità a ritmo j* 
continuo... Dai 5 

un'occhiata: preferisci 
le battaglie spaziali , come 
Sfar Battle, o i mostri di Spectre? Puoi scegliere 
anche i giochi d'abilità, come gli scacchi a sei 


livelli di difficoltà, li poker ... o il Type-a-tune, un 
gioco educativo che 
trasforma il WC in un 
; > : pianoforte, o /' Home 

baby sitter, che insegna 
■ numeri e lettere 

dell'alfabeto e disegna 
facce, jnsomma, VIC 20 
é proprio insuperabile. 
Commodore Italiana S.p.A, 

Via FJH Gracchi T 48 
Cinisello Balsamo (Milano) 
m Tei (02) 6125651 - 6123253 


Commodore 

COMPUTER 


VIC20,ORACHE CE L'HAI... 


GUARDA CHE CI FAI 

SCEGLI TRA CENTO E CENTO PROGRAMMI 


Jnpmr Lander 


Home Baby Sitter 


St malica le 


Sartjon - Che ss II 


wnmam 

l uskl ™ i 


mmomm 

AL BASIC MUTE J 





mm 

conuvic 

Le memorie di massa 
e la stampante 





Negli ultimi tempi la redazione ha ricevuto numerose telefonate di lettori che richiedevano 
informazioni sull uso delle periferiche con particolare riferimento alla stampante ed alVunità di 
memoria a disco. Nei titolettì di questo articolo troverete le domande più ricorrenti 


Sono qui di seguito riportati alcuni concetti fonda- 
mentali spiegati attraverso la comoda forma di ri- 
sposta a quesiti semplici ma della massima impor- 
tanza* 

Che cosa è un disco? 

Un disco (noto meglio come floppy disk) è un 
supporto magnetico destinato a contenere informa- 
zioni "dettategli” dal computer* Nei sistemi CBM 
considerati in questa sede i dischetti hanno una 
dimensione da 5 pollici 174. Particolari attenzioni 
devono essere prestate per la loro conservazione ed 
uso* 

Cosa significa "formattare ' 1 un disco? 

Quando si acquista un disco nuovo, mai usato, 
esso assomiglia ad un foglio di carta grande come 
un lenzuolo nonostante le ridottissime dimensioni 
esterne* Se del foglio di carta vogliamo realizzare 
un quaderno, lo sod divideremo in un certo numero 
di fogli eguali che saranno, in seguito, cuciti con 
una pinzatrice da ufficio. Se invece il grosso foglio 
di carta lo vogliamo utilizzare per incartare dei pro- 
dotti, io taglieremo secondo altre misure e non sarà 
necessario cucire i vari pezzi tra loro. Se vogliamo 
realizzare... coriandoli, la forma finale del foglio 


sarà ben diversa da quelle viste* Formattare un di- 
sco significa, seguendo Tana logi a descritta, dare una 
certa “forma” al disco in modo tale che possa es- 
sere utilizzato convenientemente dal computer cui 
è destinato. Ogni computer, infatti, o meglio ogni 
drive, ha un suo modo di suddividere ed organizza- 
re le zone magnetiche del disco* Dischetti tormatta- 
ti con un modello Commodore 1541 possono esse- 
re letti da un 1540 o da un 4040, ma non, tanto 
per fare un esempio, da un 8050, nonostante i 
computer Commodore “parlino” lo stesso basic (o 
quasi). 

A che cosa serve inizìalizzare un disco? 

Precisiamo, anzitutto, che Pinizializzazione è 
cosa totalmente diversa dalla formattazione* Que- 
st’ultima va fatta una sola volta e, qualunque sia il 
computer, distrugge qualsiasi dato eventualmente 
presente sul dischetto. 

Quando introduciamo il disco nel drive, eviden- 
temente vuol dire che ce ne serviremo per leggere 
dei dati o per scriverne altri. II computer deve sape- 
re, al momento opportuno, il posto preciso in cui 
leggere le informazioni richieste o scriverne delle 
altre senza, ovviamente, interferire con quelle già 
presenti, Riccorendo ad un paragone banale possia- 
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mo dire che, mediante rinizializzazione, il compu- 
ter è in grado di riferire ad un “indice” del disco 
che assomiglia moltissimo alTindice di un libro 
qualsiasi. Al momento opportuno, in caso, di ri- 
chiesta di lettura o scrittura dei dati, il computer 
saprà comportarsi senza commettere errori di sorta. 
Ecco perchè deve essere effettuata ogni volta che si 
cambia disco: il computer deve documentarsi sul 
nuovo,., indice. In alcuni drive (Commodore 8050 e 
8250) finizializzazione è automatica nel senso che 
viene effettuata non appena si chiude lo sportelli- 
no. In altri casi (1541) deve essere richiesta dal- 
rutentc. In genere viene sempre fatta automatica- 
niente ai momento del SAVE o del LOAD. Può 
risultare utilissima quando (caso del 1541) il segna- 
latore luminoso di errore lampeggia. 

In che modo si possono registrare dei dati? 

Si presuppone che il lettore sappia usare i sem- 
plicissimi comandi di registrazione e lettura pro- 
grammi riportati sul manuale di istruzione. 

Registrare dati numerici o alfanumerici è un 
compito, per il computer, del tutto analogo a quel- 
lo relativo ai programmi. Mentre però per questi il 
comando di Save è inequivocabile perchè si tratta 
di salvare finterò programma presente in memoria, 
nel caso dei dati il computer non può sapere quanti 
e quali dati vogliamo registrare o leggere. E 1 pertan- 
to necessario comunicare, in qualche modo, che 
desideriamo leggere oppure scrivere dati. Per fare 
ciò è necessario “aprire” un file e, dopo aver com- 
piuta ^operazione, chiuderlo. Secondo una banale 
analogia è un comportamento analogo a quello che 
seguiamo nel fare una telefonata: dapprima alzia- 
mo la cornetta per stabilire la linea, quindi formia- 
mo il numero ed in seguito, terminata la conversa- 
zione, chiudiamo La linea. Malfunzionamenti si veri- 
ficano nel caso formiamo il numero prima di senti- 


re il segnale di linea libera, oppure se lasciamo sol- 
levata la cornetta (= mancanza di chiusura). Allo 
stesso modo, dall’altro capo del file, P interlocutore 
solleverà la cornetta non per formare il numero, ma 
in risposta allo squillo della nostra chiamata. Sui 
manuali di istruzione sono riportate le istruzioni e 
la corretta sintassi di rispettare per realizzare un 
trasferimento di dati tra computer ed unità a disco. 

Che differenza c'è tra un file sequenziale ed uno 
relativo di random? 

Supponiamo di avere memorizzato su disco una 
rubrica telefonica e di voler aggiungere, in coda ad 
essa, un nominativo. Se il file è sequenziale siamo 
costretti a trasferirlo tutto, compresi i nominativi 
che non interessano, nella memoria del computer, 
aggiungervi in coda il nuovo nome e trasferire nuo- 
vamente su disco il file incrementato come descrit- 
to. Benché tale operazione sia in gran parte auto- 
matica, il tempo richiesto è decisamente proibitivo. 
Se si dispone di file relativi, invece, è possibile ag- 
giungere, nella parte opportuna del disco, il nomi- 
nativo senza essere costretti alfoperazione descrit- 
ta. Sembrerebbe allora che i file sequenziali siano 
in netto svantaggio rispetto ai relative; si tenga co- 
munque presente che i dati sequenziali occupano 
su disco una quantità di memoria minore. In molti 
casi, inoltre, il vantaggio di trascrivere il singolo 
dato in coda agli altri già presenti è dal fatto che, in 
fase di ricerca di una stringa, tanto per fare un 
esempio, si è costretti a passare m rassegna tutto il 
file, relativo o sequenziale che sia, prima di rintrac- 
ciare quella giusta. 

Per leggere dati registrati su disco 

Una trattazione approfondita sarebbe in questa 
sede inopportuna. Purtuttavia, referendosi alle figu- 


Figura 1 

100 A=20 : B=30 ■ 076: REM TRE VALORI CASUALI 

110 OPEN 2,8,2; "0 : TEST. SEGL URITE’ 1 : REM APERTURA COLLOQUIO CON DRIVE 

120 PRINT#2, A : PRINT#2, B : PRINT#2, C : REM SCRITTURA SU DISCO 

130 CL0SE2 : REM CHIUSURA COLLOQUIO 
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re 1 e 2 si indicano qui di seguito alcune regole da 
rispettare nel caso di semplici operazioni di lettu- 
ra-scrittura utilizzanti dischi. 

1/ Ricordarsi sempre di chiudere il file aperto per 
!e operazioni. 

2/ I dati da leggere devono essere “simmetrici” ri- 
spetto a quelli precedentemente scritti. Per esem- 
pio i valori A, B e C scritti in quest'ordine col 
programma di figura 1 devono assolutamente essere 
letti nello stesso ordine nel caso di lettura (fig. 2)* 

Figura 2 

100 OPEN 2,8,2, "0 ; TEST,$EQ»REflD" : REM APERTURA COLLOQUIO CON DRIVE 

110 INPUT#2j A : INPUT#2, B : INPUT#2,C ; REM LETTURA DA DISCO 

120 CL0SE2 : REM CHIUSURA COLLOQUIO 

130 PRINT A, B» C : REM VERIFICA 

Se un file è formato da un certo numero dì stringhe 
alfabetiche e da valori numerici, in fase di successi- 
va lettura bisognerà tener conto di questo e dare il 
comando INPUT#.. .AS (o simile) nel caso di strin- 
ghe e INPUT#, „À nel caso di valori numerici. 

3/ Per i motivi detti prima è praticamente impossi- 
bile leggere un qualsiasi file se non si conosce U 
modo in cui è stato scrìtto. Non dimentichiamo 
che un file è un elenco di numeri e caratteri che 
possono non avere apparentemente un nesso logico 
tra loro. Ecco perchè programmi che ad un certo 
punto richiedono t'uso del disco per memorizzare 
dati devono essere usati in unione a programmi 
“simmetrici” di lettura che tengano conto del mo- 

do in cui sono stati scritti i dati stessi. Modificare, 
in un programma, la parte relativa alla sola lettura 
o scrittura portano a risultati imprevedibili e, in 
genere, errati. 

Come utilizzare la stampante in modo "diretto", 
senza cioè ricorrere a programmi di word 
processing 

Anche in questo caso è necessario “aprire” il 
colloquio. 11 lettore dovrebbe aver capito che tutte 
le volte in cui è necessario comunicare qualcosa ad 
una periferica, ciò si realizza aprendo dei file e 
chiudendoli dopo foperazione. 

Figura 3 

100 0PEN1 > 4 : REM APERTURA COLLOQUIO CON STAMPANTE 

110 INPUT m REM RICHIESTA DELLA STRINGA ALFANUMERICA DA STAMPARE 

120 IF R$=’V THEN GOTO 140 : REM PREMERE FRECCIA PER FINE 

130 PRINTtl , A* : GOTO 110: rem SCRITTURA SU STAMPANTE E RITORNO fi 110 

140 PRINT#! CLOSE 1 : REM CHIUSURA COLLOQUIO CON STAMPANTE 

La figura 3 rappresenta il più elementare pro- 
gramma di text editor possibile, 

* Riga 1 00; si apre il colloquio con la stampante. Il 
valore 4 di GPENK4 si riferisce, appunto, alla 
stampante come il valore 8, visto precedentemente, 
è quello tipico deirunità a dischetti. 

* Riga !Ì0 : il computer chiede alT utilizzatore la 
stringa alfanumerica che si desidera stampare. 

* Riga 120: è questo il modo suggerito per inter- 
rompere rinvio dei caratteri alla stampante: batten- 
do, al momento della richiesta di una frase, il tasto 
della freccia a sinistra e, dopo, U tasto di ritorno, il 

programma salta alla riga 140 che fa stampare un 
rigo a vuoto e chiude il file. E’ ovvio che il lettore 
potrà cambiare il carattere suggerito e sostituirlo 
con un altro qualunque. 

• Riga 130: sul canale 1, precedentemente aperto 
(riga 100) verrà inviata la stringa alfanumerica AS 
digitata. E* questo il momento in cui la stampante j 
scrive i caratteri. Subito dopo (GOTO 1 1 0) il prò , 
gramma torna a chiedere una nuova stringa alfanu- 
merica, Si ricorda, benché sia noto, che è possibile 
rispondere all'input con una intera frase lunga deci- 
ne di caratteri. 
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Vie 20 


Vie 

Agenda 

La grande versatilità del Vie 20 
si dimostra in modo efficace an- 
che per eh t pensa di sfruttarlo per 
“usi gestionali” senza pretendere 
però miracoli. Vie-Agenda è un 
programma che serve a memoriz- 
zare su nastro (più “scomodo”, 
ma sicuramente più popolare e 
diffuso del floppy) un certo nu- 
mero di 'indirizzi richiamabili per 
ordine, numero di codice ed infi- 
ne per cognome e nome. 

I l programma, da solo, occupa 
circa 4K (3,5K senza le REM). 

Un problema sorge però, relativa- 
mente alla quantità di indirizzi 
inseriti nell'agenda e quindi al di- 
mensionamento iniziale dei vet- 
tori presenti nel listato. Cosi co- 
me si presenta esso gira sul Vie 
con un minimo di 3K di espan- 
sione (8K, 16K, ecc.). 


t C REM ************************************** 

20 REM* * 

30 REM* VIC-AGEMDfì PER VIC CON ESPANSI ONE * 

40 REM* * 

50 REM* 01 STEFANO DONATI VIA SGURGDLA 13 * 

60 REM* TEL 06/7850466 — 00179 ROMA — * 

70 REM* * 

SO REM*** ************* ********************** 

65 « 

30 WS- " j — ) M ; SS= rt 11 i US- * L 

1 « 



1 1 programma è molto semplice 
e versatile (con piccole modifiche 
e con un po’ di creatività si riesce 
ad adattarlo anche alle esigenze 
più varie: archivio riviste, compo- 
nenti elettronici, cassette di regi- 
strazione, dischi ecc.), quindi, è 
superfluo aggiungere altro, oltre 
al fatto che esso offre 3 menù 
generali, fra i quali uno principa- 
le, che permettono ogni gestione 
deirindirizzo ; variazioni, aggiunte 
di altri indirizzi, cancellazioni e 
la visualizzazione del “file” ri- 
guardante la persona in questione 
identificata dal nome-cognome, 
via o piazza, C,A.P., località, pro- 
vincia, tele io no, annotazioni va- 


ne. 


Stefana Donati 

Via Sgorgala, 13 

00179 Roma - tei, 06/7850466 
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100 
1 10 
1£0 
130 
I4Q 

150 

160 

170 

180 


■;W*:PRlNT”SCHEOARIOs VK* 


£50 
260 
£70 
260 
290 
300 
310 
3£© 
330 
340 
350 
360 
370 
380 
390 
400 
4 10 
4£0 
430 
440 
450 
460 
4/0 
480 
430 
500 
510 
520 
530 
540 
350 
560 
570 
580 
530 


N 1 


*;x 


:W$ 
’ U* 


:PRINT*CH*CHEDARIO INO IR IZZ IMI 


DIMN*< 50 > ,V*< 58 > ,CSK 50 > ,1 50) 56) ,T$< 50 > ,A$< 50) ,F< 50 > JGQTO340 

INPUTBs IFB< 0 THE NI 18 
RETURN 

FRI NT" J" ! IFS< MTHEN20B 
□PENI / 1 , AGENDA f ‘ 

Z*=CHR*< 13) SPRINTAI ,K*;2*JCJZ$i 
FGRX - 1 TOC 

P R I NT 11 flS TO SCRIVENDO L’INDIRIZZO N*";X 

pRiNTtti x>;z$; v*< x>;z$;c*<x);z*)L*< x>jz*;f*< x>;z$jt**x>;z*; 
a*< x>;z*;p< X); Z*>; 

138 NEXTX i CL03E 1 

200 PR 1 NT 11 i2 n 5 RETURN 

£30 PR I NT ” fcj" ! I FS - 1 TH EN230 

228 OPEN 1 , 1 , 0 , AGENDA J+ s INPUT* l , K$ , C i PR I NT " 1 
£30 PRINT* INDIR IZZ I I NSER 1 T I * " ; C * PR I NT US 
£48 FORX = 1 TOC 

FRI NT 'USTO LEGGENDO L'INDIRIZZO 

1NPUT#1 X>,V*< X) ,C«CX>rL*<X> ,P*< X>,T*<X> ,A*<X>,F<;X> 

NEXTX: X*X- 1 : CLOSE 1 
5 = 1 

RETURN 
PRINT” J H 
PR I NT " □" 

PR I NT " □” 

RETURN 
30 SUB 300 

PR I NT ” 3-3* FINE LAVORO TOBT :FRiNT”aiM CREAZ i Of4E SCHEDAR I GW 
FRI NT ”32» AGGIORNAM. SCHEDAR I OMH H 
Gosuei 16 
tFB >£THEN370 
I FB -0THEN 1 430 
I FZ = 1 THEN4E0 
I F B = 1 THE N5 1 0 
1FE = ! THEN370 
GOSUB300 

PRNJT-D3053UADRO PR INC 1 PALE UH" * PR 1 NT " 01 ■! NSER I M * INDIR IZZ IMS 
PR I NT fiPSVrtR I AZ I ONE INO IR IZZ IHS" I PR INT H I MI NAZ . INDIR IZZ I] 

PRINT’SHM' ISUAL IZZ . INO IR IZZ I TOH 
L-USUbl IO 

IFB=0THEN340 : IF6>4THÉN478 
PR INT“ J" 

ONBGOTG750/730, 1030, 1 130 
REM*SUEROUTINE CREAZIONE* 

PRINT" J" 

input -mmome schedario®";** 

X = 1 ìF< X) *X 
F< X > S X 

PRIHT”fci” =PR INT"D W ; W^?PR INT-OI RECORD N ■ %‘K 
PRINT*®! ";U*i PRINT "□COGNOME E NOME " 1 INPUTN$< X > 

PRINTSS SPRINT '*0/1 A O PIAZZA" ! INPUTV*t X>i IFV*< X > * " * " THENS70 
PRINTS$:PRINT“[X . A.P. " s INPUTCSC X) : 1FC*< X > - " * ” THEN5Q0 
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B00 PR INTSS! PR INT w DUOCflL * T. " i 1MFUTLSCX>: IFL*\ X > = " * - THEN530 
5 10 PRINTS*: PRINT"EFR0VINC Ifi < XXV" i INPUTPSC X) : 3FPS< X 1 = " = " THENS00 
3£0 IFLENC FSC X> X >£TH£N610 

330 PR INTS#3 PR INT" OTELEFOND " : INFLÌTTA X) : I FT*K X ? = * = " THEN6 10 
140 FRINTS*:PR INT "OAmOTAZ IONI " : IM*UTA*KX> : I FA3* X ) = " * ■ THENG30 
550 PR INT "Li" :PR I NT " I S$ S FR I NT " 

660 FR INTIMA X>:PRINTV*C H) : PRINTER X>; " ";L*C X)I " 41 ; P*< X > : PR INTa PR INT" 

TEL . = " ; T*< X > 

670 PR INT "NOTE! "TAS< X> 

630 PRINT w a f ;SS:PRINT ,, »R BENE® * SVN > ■" ; : I NPUTJS : 1 F J*< > " S " THEN) 560 

690 PR INT :PRINTS^ SPRINT "jaRLTR I I MD I R I Z2 I * ,+ ; : INPUT J*: IFJ$< >"S "THEN720 

700 X*X+1 

710 GDTO550 

720 C=XiS=l :T=i ?Z*1 

730 GOTO340 

740 REM*SUBROUTINE INSERIMENTO* 

750 GOSUB210 
760 T » 1 
770 GOTO70G 

780 REMtSUBROUTlNE VARIAZIONE 
780 GOSUB3I0 
800 PR INT" 

8 10 INPUT u aCODICE DA VAR I ARE ì B" * YUFY< =0OR Y >CTHEN3 1 0 
820 PR INT " J" : PR INT "OflCOD ICEB* J F< Y> i PR INTSS 

830 PR 1 NT * NOME : " s N *< Y) : PR INT" B/AR IO t S/N>S" I : 1NFUTJ*: IFJ ** "S"THEN910 
840 PR INTUIR S VS< Y) : PR 3 NT " BVAR 1 0 C 5/N>S" I = IhFUTJ*= IFJ$ = "S W THEN330 
350 PRINT-BC .A.P. ! *;C*C Y) : PR INT “ Bi/Aft IO <S/N>B"; ! INPUTJ^i IF J* = " S “ THEM350 
8S0 PR I NT " B.GC AL I TFl f : H JL*< Y) : PR INT M 3^RR IO < S^N)®*; : INPUTJ*: IFJ*^ 

"S H TNEN970 

370 PR 3NT"IPR0V1NCIA < XX > t ■ ; F$\ Y ) : PR I NT " »AR IO C S/N?B" ; tj NPUTJ** I F J*= 

" S " THEN930 

880 PR I NT 11 jffELEFONO i !I ;T$( Y> :PR INT"B/ARIQ < S/N>B" ; : INPUTJ*: !FJ* = 
b THEN 1 080 

330 PR INT' BfiMNGTAZ IONI : * J A*' Y > : PR I NT " fli/AR IO t SVN)*"; : INPUTJ*s IFJ* = 

"S" THEN I 040 
300 GOTO 1050 

9L0 PR INT: INPUT "NUOVO riOME : »;NS<Y> 

920 6OT0840 

330 PR INT a INPUT "NUOVA VIA! ";V*<YJ 

940 GOTO850 

950 PRI NT: INPUT "NUOVO C.A.P*: 

960 GOTO360 

370 PR INT: INPUT "NUOVA LOCALITÀ 4 ! "JLSCY) 

980 GOTO370 

390 PR INT i INPUT" NUOVA PROV INC I A< XX ) t ■ ; p${ Y } 

1000 I FLENC Y> >< >2THEN990 
1010 GOTO830 

1020 PR INT: II4PUT "NUOVO TELEFONO > "/TKY) 

1030 6OTO830 

1040 PR INT i INPUT "NUOVE NOTE! ,, IAS< Y> 

1050 PR INT “B" : S^SPR INT -ALTRI COO . DA VARIARE C S/N > * i l NPUTJ^i I F 
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"S'THITNSfcfL. 

T* 1 s GGTG340 

1870 REM+SUBROT INE ELIMINAZIONE* 

ÌO30 GOSUB210 

1030 iNPyyaCODICE DA ELIMINARE»*' ; Yi IFY< =0ORY>CTHEN1030 
; 100 Y> = 11 11 : VS< Y > » 11 *” i C$< Y) = " " f LS< Y > = 11 M ipSi Y> = " " S T*< Y) = H " :A$< Y > = " " 

1110 FRINTS*:PRINT''B^LTRI D , ELIMimRE( SXNJ»" i INPUTJ^s I F J** " 3 " THEN 1 090 
* 120 SOOTC343 

! 38 REM*SUBROUTIN£ VISUALIZZAZIONE 
1140 GG5UB210 
i 150 PRtMT m a m 

1 180 PRINT w a*;U*sRRIMT“ai VISUAL IZZ * INDIRIZZ 1»! 11 

! 1 70 PPINT*D“/U*J "a 11 iFRINTT* QUADRO PR INC IP ALEJM" *PR I NT "fll» RICERCA 
PER CODICE*^" 

1130 PRINTTS RICERCA PER NOMERÀ p : PR I NT T» V I SUAL I Z Z , TOT ALE IHSBHir 

1 180 GOSUB 110 

1200 IFB >3THEN1 130 

12*0 IFB-0-mEN340 

1 2 20 GNBGOTD1230, 1280, 1363 

1238 PR INT"fcÌ M 

12^.0 INFLITTOC I CE DA V ISUAL I ZZ . »V Y: IFY< *0THEN1230 

1250 IFY7CTHEN1 150 

1260 GOSUB ì 40D 

*.'70 GOTO 1 230 

ì200 PR I NT 

1 ^ INPUT “TOME DA CERCARE» ; Y* : HH = LENt Y$ > 

isra T ORY - 1 TOC 

1310 tFLEFTSK NSK Y> ,HHX >Y*THEN1340 

1 32 j GOSUB 1400 

133 ~ DOTO 1280 

1343 NFXTY 

1350 Gr iTD 1 1 50 

rase F-iny=iToc 

1370 ^V3UB1400 
1380 ’JEXTY 
1380 GOTO 1150 
Iti 30 PR INT"«J" 

14 10 PR I NT “ COD ICE N ; FC Y > : FR I NTS* 

1420 FRI NTNS< Y> !PRINTVS< Y) SpRINTCfC Y>; ";L$< Y>; h ";PSC Y ì * PR I NT " 

JS^TELi NT$( Y > 

1430 PRINT n NOTE: M ; A« Y> 

1446 PR I NT sPRINTS* SPRINT “PREMI m* PER USCIRE" 

1450 PRINT = PRINTTETURM» PER rnNT in . >■ 8 pg int » BBMMM— ■— l" '> 

1460 GOSUB I 10 
1470 I FB = 0TNENI 130 
I486 RETURN 
1430 IF"^0THEN15 IO 
1500 GOSUB 1 30 
5 I 0 PR INT J END 
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Vie 20 & Commodore 64 


Calendario 

Perpetuo 


I 1 programma “calendario per- 
petuo” è stato preparato sul Vie 
20 inespanso, Poiché nelle istru- 
zioni non compaiono PGKE, esso 
gira anche sul Vie 20 con espan- 
sione di memoria; per essere usa- 
to sul Commodore 64. E* neces- 
sario apportare piccole modifi- 
che. 


1 ! programma consente di vi- 
sualizzare sul monitor TV qua- 
lunque mese di qualunque anno 
compreso fra Tanno zero dell’era 
volgare e Tanno 3000 D.C. 


O richiesta Tindicazionc dei me- 
se (in cifre da 1 a 12) e Tanno 
(Dopo Cristo); ottenuti tali dati, 
viene visualizzato il mese richie- 
sto, e si richiede contemporanea- 
mente l'input di un altro mese: 
ciò consente di “sfogliare” il ca- 
lendario senza dover ridare il 
“RUN” ogni volta. 


1 1 listato si basa sul “Calenda- 
rio Perpetuo” prepara- 

to e disegnato nel 1978 come rie- 
Laborazione originale di vari ca- 
lendari perpetui esistenti. Per re- 
digere il programma in Basic, so- 
no stati aggiunti a quei calenda- 
rio, alcuni secoli in modo di arri- 



vare al 3000 (tanto per non dare 
la sensazione di avere un pro- 
gramma troppo miope). 


Illustrazione del programma 

a/ Da 100 a 170 il programma 
richiede gli input M (mese) ed A 
(anno), e controlla eh 'essi siano 
corretti, altrimenti segnala Terro- 
re e ripone la richiesta di input, 
b / Da 180 a 240 si esamina il ca- 
so particolare dell'Anno 1582, 


anno in cui, nel mese di ottobre, 
si è attuata la riforma del calen- 
dario passando dal Calendario 
Giuliano (che considerava bisesti- 
li tutti gli anni secolari) al Calen- 
dario Gregoriano (che considera 
bisestili gli anni secolari di 4 in 4: 
1600, 2000, ecc.) 

P oichè, per eliminare Terrore 
accumulatosi dall'epoca di Giulio 
Cesare al 1582 era necessario eli- 
minare 10 giorni, fu stabilito che 
il giorno successivo al 4 ottobre 
f o s se denominato 15 ottobre 
(cioè: i giorni dal 5 al 1 4 ottobre 
1582 non sono in realtà mai esi- 
stiti). La subroutine 250-260 rea- 
lizza questo salto in fase di stam- 
pa dei giorni del mese (istruzioni 
560-670). 

cj Per tutti gli altri anni (# 1582) 
il programma riprende da 330 
ove T input A viene diviso in due 
(S s cifre dei secoli; D ■ cifre del- 
le decadi e degli anni), 
d / Da 340 a 350 si con- 
fronta S 'con le ordi- 
nate della tabella 1. I relativi dati 
sono riportati in 680-690, riga 
per riga a partire dalla 5 "( in cui si 
ottiene nella 1 * colonna il numero 
romano L questo valore si incre- 
menta di 1 ad ogni cambio di ri- 
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ga). In realtà si inizia ponendo 
Y=8 (anziché 8) nell’istruzione 
330: ciò equivale ad Y = 1 poiché 
distruzione 510 prowederà ad ef- 
fettuare Y-7 fino ad avere Y<7« 
e/ Da 360 a 380 si confronta S 
con le ascisse della tabella 1 . I 
relativi dati sono riportati in 
700-760, colonna per colonna a 
partire dalla prima. Y = Y + 1 ad 
ogni cambio di colonna, 
f/ Da 390 a 400 si stabilisce le 
durata del mese (F). 
g / Da 410 a 430 si confronta M 
con la seconda tabella. 1 relativi 
dati sono riportati in 770, rag- 
gruppando i mesi in modo da ini- 


ziare con quelli che hanno un I 
(Luna) sulla 1 * riga, continuando 
con quelli che hanno 2 (Marte), e 
così via, in modo da incrementa- 
re ancora Y di uno ad ogni cam- 
bio di gruppo. 

h/ Da 440 a 500 si individuano 
gli anni bisestili, per i quali si rin- 
via alla subroutine 270-290 (che 
riduce Y di uno per GEN e FEB 
e che pone F = 29 per Febbraio), 
il Da 520 a 540 si traduce M in 
MS (dizione del mese in tutte let- 
tere prelevata dai dati 780-790) 
per la successiva stampa. 

1/ Da 550 a 670 si provvede alla 
stampa del mese usando anche la 


subroutine 300-320 per le linee 
rosse, il valore Y stabilisce il gior- 
no della settimana (da LU a DO) 
in cui inizia il primo giorno del 
mese; l’istruzione 560 calcola 
conscguentemente la colonna (X) 
in cui si andrà a stampare {istru- 
zione 580) il giorno 1 del mese. 
Gli altri giorni del mese (fino ad 
F) vengono stampati di seguito, 
opportunamente incolonnati. I 
giorni che capitano di Domenica 
vengono stampati in rosso {istru- 
zioni 620 e 650). m 

Domenico & Marzio Carro 

Via Leonida, 82 C - Taranto 
Tel. 099/372358 


10 REM###*#######*### 

20 REM CALENDARIO 
30 REM PERPETUO 
40 REM DI 
50 REMDQMEN I CQ&M AR2 I 0 
60 REM CARRO 
70 REMVIft LEONIDA- 82C 
80 REM TRRflNTO 
90 REM TEL <899)372353 

95 REM*#*############ 

96 : 

100 PR I NT " rSpaTOBgffilDiroigCRLXMDRRIO PERPETUO!" 

110 PRINT"E" 

120 INPUT"MESE<IN CIFRE>";M 

130 IFM=0ORM>12THEHPRI NT" «CIFRE Dfl 1 fl 123M" : GOTO120 
140 PRINT 

150 INPUT" ANNO < D.C. >“)fì 

168 IFR<0THENPRINT"M3HO DETTO DOPO CRIST05M" ■ GOTQ150 

170 IFR>3000THENPRINT"rsD»ni DISPIACE : PROGRAMMA VALIDO FINO AL 3000 HS" : GOTO 150 

180 IFRO1582THEN330 

190 IFM<10THENY=1 : GOTO390 

200 IFM>10THENY=5 : GOTO390 

210 I FM=10THENPRI NT "3*SPC<5) "OTTOBRE 1582" 

220 PRINTSPC<2) "ANNO DELLA RIFORMA" 

230 PRINTSPC <6 ) "GREGORIANA" : GOSUB300 
240 Y-l : F=31 : GOTG560 
250 IFG=5THENG=15 
260 RETURN 

270 IFM-10RM=2THENY-Y-1 
283 IFM=2THENF=29 
290 RETURN 
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300 PRINTCHR$<13) 

310 FORO0TO21 : PRINTTRB(C)"^S NEXT 
320 PRINT"» 1 : RETURN 

330 SX*fV100 : S=Sfi : D=fi-S#100 ; V=8 ; IFS=15RNDD>82THENS=-15 

340 REABN ; IFN=-iTHENY=Y+l 

350 IFNOSTHEN340 

360 READN ; IFNO-2THEN360 

370 RERDN:IFN=*-ITHENY»Y+1 

380 IFNODTHEN370 

390 F*31 : IFM=2THENF=28 

400 IFM=40RM=60RM=9QRM=1 1THENF=30 

410 RERDN : IFNO-3THEN410 

420 RERDN: IFN=-1THENY=Y+1 

430 IFNOMTHEN420 

440 IFD=0THEN480 

450 F0RC=4T096STEP4 : I FD*CTHENGOSUB270 
460 NEXT 
470 5OTQ510 

480 FORC=0TO16 : IFS=CTHENGOSUB270 
490 NEXT 

503 1FS=20QRS=24QRS=28THENGOSUB270 
510 IFY>7THENV=V-7 : GOTQ510 
520 REflUN: IFNO-4THEN520 
530 F0RC=1T012:RERDM* 

540 IFCCtITHENNEXT : GQTO530 

550 PRINT"H"SPC<5)M$; " ".Ri -GOSUB300 

560 X=l+3#<Y-i> 

570 PRINT” LU MA ME Gl VE SR rffiOS S" 

580 FRINT3PC<X>; 

590 FDRG=1T0F 

600 IFA=1582ANDM=10THENGOSUB250 

610 IFG>9THENPRINT ,, ll"i 

620 I FPOS < 1 ) > 1 7THEN650 

630 PRINTGi : GOTOS60 

650 PRINT " Ti Gi SPC< 1) " 3" i 

660 IFG-FTHENGOSUB300 

670 NEXTG 

680 DATA4, 11.-15. 19.23.27.-1,3,10,-1.2.9.18,22,26.30.-1.1.8.15.-1 

690 BRTR0.7, 14, 17,21,25,29,-1,6. 13. -1.5, 12, 16,20,24,28,-2 

700 DRTR0, 6, 17, 23,23,34, 45, 51 , 56, 62, 73, 79,84.90, -1 

710 DATAI, 7, 12, 18, 29, 35, 40, 46, 57, 63, 68, 74, 85. 31, 96,-1 

720 DRTR2, 13, 19, 24, 30, 41, 47, 52, 58, 69, 75, 80, 86, 97,-1 

730 DRTR3, 3, 14, 25, 31, 36, 42, 53, 59, 64, 70, 81, 87, 92, 98,-1 

740 DRTR9, 15,20,26,37,43,48,54,65,71,76,82,93,99,-1 

750 DRTR4, 10,21,27,32,38,49,55,60,66,77,83,88,94,-1 

760 DRTR5, 11, 16,22,33,39.44,50,61,67,72,78,89,95,-3 

770 DRTfii, 10, -1,5, -1,8, -1,2, 3, 11, -1.6, -1,9, 12, -1,4, 7, -4 

780 DATAGENNAIO, FEBBRAIO, MARZO, APRI LE, MAGGIO, GIUGNO, LUGLIO 

790 DRTRRGOSTO , SETTEMBRE , OTTOBRE, NOVEMBRE DICEMBRE 

800 RESTORE : GOTO 120 

READY. 
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Vie 20 & Commodore 64 


Divisione 

in 

SILLABE 


I 1 programmino suddivide in 
sillabe qualunque parola italiana. 
L’interesse è più linguistico che 
informatico, ma può essere utile 
a molti lettori, grazie anche alla 
sua brevità. 


P er quanto riguarda il funzio- 
namento, è molto semplice: il 
programma cerca la prima vocale, 
controlla le due lettere successive 
e a seconda delle combinazioni 
individua o meno la sillaba, rico- 


minciando poi da capo il ciclo. 
L'unica particolarità è la linea 
460 che assegna alla variabile A il 
valore -1 solo se una delle condi- 
zioni successive è vera, cioè se X$ 
è una vocale. 


100 REM ********************** 
110 REM DIVISIONE IN SILLABE. 

I £0 REM PER QUALSISI COMPUTER 
130 REM 

140 REM DI FRANCO MU330 

150 REM VIA TORINO £7 

160 REM ORIO ORNA VE SE ( TO > 
170 REM TEL 011/9338044 

100 REM ********************** 
ISO f 

= 00 FRINT"J T> 

E 10 S=1 SPRINT "1" 

220 I NFUT " OCABCLOB" ; FR INT 
230 IFA$= "0"THENEND 


240 I F £ > L E Né nM> THENFR I NT 11 11 *!G0T021C 

£50 A$,S , 1 > IGOSUB460 

283 I FA = BTHEN4 30 

£73 X*~MZD3< fi$,5+ 1 , 1 > * GQSUB4SQ 

ESO IFA=BTHEN3E0 

230 iFXS = " I "THEN3E0 * 


300 IFMID** A$,S, 1 I "ORMIDSK 1 ) - * P U "THEN430 

310 3OTO440 

3£0 X^-MID*C A$ ,S+£* 1 ) <GGSUB4Q3 
330 I FS > 1 THENI FM1D^< A* ,S-1 , £ ? s M QU ■ ANCA » - I THENPR I NTM !□*< A*,S r 2 > ; ! S -S + E ! G0TG24 0 
340 IFA-- 1THEN440 
350 GOTO430 

360 IFS+£>LEN< A$>THEN450 
370 X*»H1D«K A*,S+2, I > = 5OSUB4G0 
33G IFA=~ 1THEN440 

333 IFMID« A*,S+1, ! >=MI0*< A*, S+£ , U THEN450 
400 Al*=MID*< Af ,S+ ! , 1 > I IFA1£= B S "ORA 1*= “G J THEN440 

410 REM A£**MID*< AS,5+£, 1 >e I F AE$= w R " 0RA£*= " L " ORA£S= *H n TMEN440 
4E0 GOTC450 

430 PR INTMID A$ , S , I ? / s S*5 + 1 * GOTQS40 
443 PR1NTMID5C A*, 3, l >; *5=3+1 ! GOTDÉ40 
450 PR INUMI DSC AS,S,£>; a S *S + 2 : GOTOE4G 
430 A = "A "ORX#* "E " DRX^= " I "0RX*= "0 "GRX** "U" : RETURN 

FEADY . 
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Commodore 64 


Puzzle 



Provate a ricostruire un’immagine 
avendo a disposizione le 
tessere-carattere dei mosaico l 


y\ppena dato il RUN viene mo- 
strata per alcuni secondi una fi- 
gura, che poi verrà cancellata e 
mischiata casualmente dal com- 
puter, e per tutta la partita non si 
può più vedere, a meno che alla 
domanda “vuoi vedere la figura” 
si risponda di sì, ed allora sulla 
destra della figura mischiata ap- 
parirà quella “originale”. 

S copo del gioco è di ricostruire 
questa figura nel minor tempo 
possibile, 

B isogna indicare al computer le 
coordinate della casella che vo- 
gliamo spostare e le coordinate di 
dove vogliamo metterla. 

La casella lasciata vuota si riem- 
pirà del carattere presente nella 
nuova posizione. Cioè, se noi 
dobbiamo mettere il carattere 
che è nella casella A3 nella casel- 
la C2, il carattere presente in C2 
verrà messo in A3, e viceversa. 

Ch i volesse sapere quante casel- 


le sono al posto giusto, deve pre- 
tti ere RETURN alla domanda 
“DA? * ed il numero indican- 
te le caselle che sono state messe 
al posto giusto verrà visualizzato 


in alto a sinistra. 

Se sì pensa di essere riusciti a 
ricostruire la figura, cioè se il nu- 
mero di caselle giuste è 64, deve 

CompuèmOuO X? 


ugualmente premere RETURN 
alla domanda dì prima, e se non 
verrà verificato die è riuscito, 
verrà ugualmente visualizzato il 
numero dì caselle che sono ai po- 
sto giusto e tornerà in gioco, 
mentre in caso di vittoria rica- 
mine era il gioco con una nuova 
figura da ricomporre, 

I n totale il numero di figure è 
2 t ma se ne possono realizzare 













& 


f§ 



! 

— 

1 - 


il 



— 


t 

Kj 

\ 



M 

SS7 

r 

% 



-&T- 

□n 

y \ 




quante se ne vogliono, con picco- 
le modifiche al programma, ed 
inserendo ovviamente i dati rela- 
tivi alla nuova figura nelle istru- 
zioni DATA, 

(Questi dati sono il valore dei 
PEEK da video dei caratteri che 
compongono la figura. L'unica 
eccezione è lo spazia che avrebbe 
valore 32, ma a cui va dato il va- 
lore 96 (= spazio + shift), ■ 


0 

1 
e 

3 

4 

5 

6 
7 


J=0 


DRTR96 ,86,98 ,36,98 ,96,96,96 
DRTBS6 ,96 ,96,86 ,96,96,96,36 
DRTR9S ,96 ,81 ,96 , 36 , 96 , 77 ,'96 
D A T A 9 6 , 36 , 96 ,96,90,96,100, 36 
Q AT A96 ,96,81,96,96,96,78,36 
0ATA96 ,98,36, 36 ,86,96,96, 36 
DATA96 ,36,96,96,36,96 , 96 , 36 
8 BRTA96 , 96 , 96 , 36 ,96 , 96 ,96 ,96 
10 DRTA9S, 96, 78, 46 ,36,78 ,46 ,46 ,96 ,78,88,88,78 , 101 , 
101,101,96,77,96,38,77,103 

20 DATA 103, 103,96,78,77,46,96,77,46,36,78,96,88,77,46, 
36,36,46,77 , 88,36,46, 77 

30 DRTR46 ,46 ,36 ,85,77 ,46^88,48,77,36,46, 

73 ,75 ,77,48,48,46,46,96 

31 REM********************* ** * 

32 REM** PUZZLE PER CBM 64 ** 


33 REM** 

34 REM** 

35 REM** 

36 REM** 

37 REM** 

38 REM** 


E PER IL PET » ! ! 
GIOVANNI BELLU * 
VI A GIARDINI 20 
SEREGNO (MILANO) 


** 
** 
** 
* * 
* * 
** 


TEL. 0382/233580 

39 REM************************ 

40 PR INT u iJ" 

4 1 INPUT "VUOI LA FIGURA Di R IUT0 H ; W*s 1 FW*< > "S *AMDN*< > “N" THENPR INT"^* * G0TÒ4 I 
42 PR I NT " LJ - 

50 R*« M aa— — — ■ 


h iR*1147 


5 1 REM* ******************************* 

52 REM*FER VERSIONE PET PORRE ft*32831* 

53 REM* ******************************* 

80 PR I NT " S ABCDEFGH * 

70 P R I NT “ r- i“ 

90 F0RK= 1TQ8 = PRINTK - I 3 SI "K iNEXT 

90 PR I NT * ■ 1 * 

95 P R I NT “ RBCDEFGH “ 
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36 IFW* = " S " THENGOSUB2000 

100 F 0RX = 1TD8 sFORY* 1 T08 : RERDFK X,Y>t B< X,Y>=R< X, Y) s POKER +40 *Y+X , A< X,Y> 
11© NEXTSNEXT 
1 1 1 IFWS = -S^THENGOSUBSOBO 
120 DErFNRCZ > = INTC RMD( 1 ) *8+ 1 > 

130 FORX = 1 T08 ' FOR Y- 1 T08 
140 XX-FNPK Z ? sYY=FNfi< Z> 

150 1FB< XX , YY> = - 1 THEN140 
155 C< X,Y>=B< XX,YY> 

160 B( XX f YY) ■ - i t NÉXTi NEXT 

170 FQRX= 1 T08 s FDRY* 1T03 * POKER +40 *Y+X ,C< X # Y> ! NEXT: NEXT 

180 FORX = 1T03SFORYMTO8:BC X,Y>=C< X ,Y> s NEXT: NEXT 

130 PRINTRS; : INPUT "PREMERE RETURN® PER COMINCIARE *IHI ; 

200 TI*^ "000000 h 
2 10 PRINTPi*;“ 

220 FRINTA$; s 3 INPUT "OR **IHM n jX* 

225 IFX*=***"TH£N10B8 
228 IFLEFK XS) >2THEN220 

227 IFLEFT$< X*, 1 >< "A "ORLEFT^t XS, 1 > > *H - THEN220 

228 IFRIGHT*< X*,l X “1 M 0RR18HTS< X*, 1 > > H 8 " THEN220 

230 FR INTA*; = INPUT - A lUllllllll Filili ; Y$ 

235 IFLENC X*> >2THEN220 

237 IFLEFT$< Y$ / 1 >< u ft"ORLEFT*< Y$ , 1 > > "H w THEN230 

238 t FR I CHTO YIJXM" ORR IGHT*< Y* , 1 > > 11 8 " THEN230 
240 X=ASC< LEFTSC XS, 1 > ) -64 

250 Y=VRL< R Ì6HT*< XS , 1 > ) 

260 Xl-ASC< LEFT4K Y*, 1 > >-G4 
270 Y1»VAURIGHTO Y*,L>) 

23© FCKEri + 4©*Y + X,CS XI ,Y1 > s POKER +40* Y1 +X 1 ,Ct X , Y> : C-CC X 1 , Y1 > I C 1 =C< X , Y> 
300 Ct XI rYÌ>=CÌ :CCXrY>=C 
400 GOTOS10 
1000 D = 64 

10 16 F0RX=1T08SF0RY*1T08: IFAt K,Y>< >C< X , Y > THENO -D - 1 
1020 NEXTtNEXT 

1030 IFD=64THENT$=TIS SPRINTA*; "HAI FINITO IN " ; MI T*,3 ,2 > " MINUTI £ 

1035 IFD=64THENFR 1NTMI0*< T* ,5 ,2> " SECOND ì * 

1036 I F D = 6 4 ANDUI= 3 THE Mkl= 1 s FORK = 1 TO2000 : NEXT : PR I NT " J" :GOTO40 

1037 1FD=64RNDUJ=1THENFORK=ITQ2000J NEXT SPRINT ^ INE GIOCO 11 =END 
1040 P R I NT ™ 3“ □ : G0T02 1 0 

2000 PR 1 NT 11 3SM" TAB< 20 > * RBCDEFGH “ 

2010 PR INTTA8< 20 > " i i" 

2020 FGRK* 1T08 : PRINTTABC 20>K" I a HI *K J NEXT 

2030 PR3NTTRB< 20 > ri 1 J “ 

2040 PRINTTABC20)* RBCDEFGH * 

2050 RETURN 

3000 FORX- 1T08 = FORY- 1T08S POKER +40 *Y+X +20 ,rt< X ,Y) 

3010 NEXTsFCXT 
3020 RETURN 
3030 REM REGOLO " 

READY, 
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Vie 20 & Commodore 64 


Stampa Su Carta 

A ^ IN 

Alta Definizione 


Un programma utile per tracciare 
funzioni matematiche . 

Con il Vie 20 (o col Commodo- 
re 64), con ta stampante MPS 
801 (oppure la 1515), si possono 
realizzare grafici di funzioni defi- 
nibili dall’utente* 

Ca funzione va definita nella ri- 
ga 170 come; 

Y-F (X)* Y2 + Y2 

subito dopo il RUN, il program- 
ma chiede alcuni dati necessari: 
scala del Tasse X (intervallo), sca- 
la asse Y, i due estremi delibasse 
X. 

T erminata Tacquisizione dei da- 
ti (righe 110-130), il computer 
immette nella variabile A (T) i 
valori delle potenze di 2 (da 210 
a 216), valori che serviranno per 
disegnare il grafico. 

I , a riga 150 assegna ai contato- 
re U PG H il valore 1 e ad A$ tanti 
CHR$(128) quanta lunghezza è 
stata assegnata alia richiesta della 
scala per Tasse Y* 

L, a riga 1 60 controlla se è il mo- 
mento di richiamare la subrouti- 
ne per Tasse Y ed evita che, 



Per ottenere etués+o grafico 
inserite la riga seguente: 

170 v-C <Xt3~Xt2-X+3)/Ì50>*Y2+Y2 

R l le domande rispondete cosi ; ! 

X=5 Y=127 EST. SIN - *=-5 EST.PEST.=+5 
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quando X=0 la funzione venga 
calcolata. 



Per ottenere questo grafico 
inserite la riga seguente: 

1 78 V- < COS < X >/L00 < X > > *V2+V2 

Pile domande rispondete cosi': 

X-5 V=1 27 EST, SIN. -2 EST. DESI. -28 


Nella riga 170 c'è il cuore del 
programma: la funzione da dise- 
gnare* 

Le due righe successive 
(180-190) fanno rientrare il dise- 
gno quando esce dai margini. Il 
blocco di righe dalla 200 alla 230 
posiziona nella variabile A$ i 
punti del disegno e l'asse X* 

I , a riga 250 controlla la fine del 
disegno* In caso affermativo c*è 
un END* 

L a riga 260 aggiorna il valore di 

“per* 

T ^ esecuzione riprende dalia riga 
150. 

L a 270 chiude il ciclo tornando 
alla 160* 

I I sottoprogramma che va da 
1000 a 1020 serve per ìa stampa 
dell'asse Y e viene richiamato so- 
lo dalla riga 1 60* 

uesto programma non può es- 
sere utilizzato con la stampante 
1526, ma costituisce un valido 
suggerimento per adattarlo ad es- 
sa, ■ 


Carlo Bernardi 
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Per o'Wenens» questo grafico 
inserita la ri^a. seguente i 



100 0PEN4,4:GR*=CHR$t 8> 

110 INPUT-JB3CALA ASSE X 1 - 1 00 " ; X 1 : 1 FX 1 > 1 00ORX I< 1 THEN1 1 0 
120 X i = X 1 V I 00 s PR 1 NT " 31101 NTERV ALLO X 1 : " ; X 1 : IhFUT^CALA ASSE 
Y 1-127*1 Y £ t I F Y2< IO RY| M27THENÌ20 

130 INPUT " ÉSMilfiMffiflffiE STREMO SINISTRO X " J X* INPUT "^STREMO DESTRO X “ * X2 * 
I FX > -XETHE NI 30 

140 Yt =Y2*2 * FORT = ITO? s READAC T> s NEXT: DATA I ,2 ,4 ,8 , 16 ,32 ,84 
150 A*=" M " SP0«1 =FORT= ITOVI ; A*= AS+CHR*< 123):NEXT 
ISO IFPV< 0ANOX*>0THENGOSUB1000: GOTO200 
165 : 

170 Y=< COSC X>/LOG( X> >*Y2*Y2 
175 t 

180 IFY>Y1THENY«Y-Y1 : GOTO 180 
190 IFY< 0THENY-Y+Y1 : GOTO 190 

200 S I *«LEFT*< A$, Y> t CE^=MIQS( A^,Y + I , 1 > ! DES = R IGHT*< A$, Y1 -L.ENC S i$+GE*) > 

2 10 PR=ASC< CE*> sTT=PR+A( PO) i I FTT >255THENTT=255 
220 CE*-CHR*< TT>IA*=SI*+CE«+DE*: IFAC PO > “0THENAC PO > s PS 
230 S IS = LEFT*< A* ,Y2 > SCE$=CHR*( 255 > i DE$=R I GHT^C A*,Y1 -LENC S I*+CE*) ) 
t A*=SI$*CE*+DES 

240 FV=X* X=X+. 00002 =X*X+X 1 iX-INTC X* 1 000 > / 1 000 

250 IFX>XSTHENPRINT#4,CHR« 15 >TAB< < 60-Y1/6 >/2 >GR¥ASGHR*< 15 J : CL0SE4 : END 
260 FD=PO+ 1 !TFPO = 8THENPO= 1 ! PR INT#4 ,CHR*< l5)TAB(s 80-Yl/6>/2) 

GR*A$CHR*< 1 3 >CHR$C 15) ,' r GOTO 150 
£70 GOTO 180 

1000 FORT- ITOVI :SI*=LEFT*C A* , T- 1 > ! CE$=MI A$,T, 1 > : DE^^R I GNTS( A», 
Yl-LENC 5I*+CE*) > 

1010 PR^ASC< CE*> s TT -PR +A< PO > t I FTT >255THENTT=£55 

1020 CE* = CHR*< TT> : A$=*S I $+CE*+DE$ ! f'EXT : FS-Bt PO ) S A< PO > =0 s RETURN 


READY , 
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Mi 


Vie 20 & Commodore 64 


La Casa 

DEL 

Mostro 



1 [ programma gira su Commo- 
dore 64 e su Vie 20 anche se ine- 
spanso, ed e un libero adattamen- 
to da un listato in basic Micro- 
soft, 

I 1 gioco consiste nello sfuggire 
il “mostro”, che si muove verso il 
giocatore mediante i comandi 
NORD, SUD, EST, OVEST che, 
essendo controllati da un GET, 
diventano N, S, E, O. 

T otto il gioco è controllato in 
modo che non c’ù bisogno di pre- 
mere altri tasti oltre i comandi e 
si conclude comunque entro la 
decima mossa. Risulta dii ficàie 
sfuggire il mostro, in quanto il 
suo movimento non è casuale, 
ma guidato sulla posizione del 
giocatore da un’apposita routine. 

I 1 giocatore ha la possibilità di 
fare salti di due caselle, antepo- 
nendo un “2” al comando; allo 
stesso tempo, pero, mentre il gio- 
catore può muoversi solo in oriz- 
zontale o in verticale, il mostro 
può muoversi anche diagonal 
mente. Si precisa che il mostro fa 
la sua mossa prima di quella del 
giocatore, ■ 
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100 REM 

110 REM ** CASA DEL MOSTRO ** 

120 REM 

130 REM VIC E0 & COMMODORE 64 

140 REM ---- 

150 REM ** MARCO MANTOVANI ** 

160 REM 

170 REM ** TEL. 051/387158 ** 

180 REM 

180 : 

200 PR im " ******** ************ , ‘ 

21C FRI NT"** CASA DEL MOSTRO ** M 
223 FRI NT "*********************" 
230 GOSUBeSOlFRINT"^ 

240 X=3!Y=1 
250 R*3:C=5 
260 FORTUITO 10 
2^0 FRI NT " gj " ; 

280 F0RT-1T05 
236 FORJ=1T05 
30.0 PR INTSPCC 1 >; 

310 I F I - XANO J = YTHENP R 1 NTTAB< 13 > 
M M" ; :GOTO340 

320 IF 1 =RANDJ=CTHENPR INTTABC 1 1 ) 

"X s GOTO340 
330 PR INTTRBC 1 1 ) ,| * i ' J 
340 NEXTJ 
358 FRI NT 
360 NEXTI 

370 FR INT- MfclWia BATTUTA NUMERO * ; T 
380 PR 1 NT " SD I REZ IONE < N , S , E r O ) 7 " 
330 PR I NT "OPPURE 

< ÉN,£E ,2S,2Q> tì iN$=" " 

480 GETM* 

4 10 I F MS - "2 H THENN$^M$:6OTO400 
420 I F M* ; > “ N * ANDM$< > " E " A NDM*< > 

" S " AN3M*< > " 0 11 THEN400 
430 IFN*=* *2 B THENM$ = N$+H$ 

440 print' j gimMMww 

! PR I NTT ABC 33 > " JSJ "M* M " 

450 1FM*= " N * THENR =R - 1 
480 IFM$-= M 2N"THEISR*R-£ 

470 IFMS= "E *THENC*C<- 1 
480 1FM*="2E JI THENC =C + 2 
430 IFMS= " 3 y THENR =R * 1 
530 I F M$ = "23 h THEMR = R+E 

5 13 I FM*5= H 0 “ THENC =C - 1 
520 1FM*= "£0 W THENC =C-E 

530 IFR*C>0AHOR< »5ANOC< =5THEN530 
540 PR I NT " LÌ FUORI GRIGLIA 
* I ONORANTE S * * ** 


550 PR I NT * SE NON CONOSCI* 

5S0 PR I NT * I PUNTI CARDINALI " 

570 PR I NT” 0C3MPRAT 1 

UNA BUSSOLA “ l GOTO840 
580 SFR< >KORY< >CTHEN600 
538 PRINTSRCC 13 ) "tM 

MANGIATO* f » “ * GOTO040 

Gm FRI NT 

S 13 IFX-RANDY< C THE NO- 1 
820 I F X > R AMD Y % C TREND = 2 
S30 IFX >RANDY = CTHEND = 3 
G4G IFX BRANDY >CTHEND =4 
G58 IFX BRANDY >CTHENO = 5 
GEO IFX<RANDY>CTHEN0=6 
G 70 I FX< R AM3 Y = C THEND » 7 

ssc :fx<rafoy<cthend^s 

633 IFD-3THEMD -3 

700 IFD=3TH£ND= 1 

710 1 FD > 1 ANDD< 5THENX *X — 1 

720 IFD>5THENX=X+1 

730 IFD>3ANDD<7THENY*Y-l 

74È !FD< 30RD = 8THENY = Y+ 1 

750 IFX*0THENX~1 

780 1FY“0THENY= 1 

7”0 I FX **GTHENX “5 

730 I F Y =S THE NY -5 

793 I FX< >RGRY< >CTHENB10 

80O FRINTSPCC 13>"Ja MANGIATO» ! ! 

» ÌGOTOS40 
810 NEXT 

820 FRI NT "LI H 

830 PR I NT " SA SE I SOFRAV I SSUTQ ! 11 

840 PR I NT "Gl OCH I ANCORA CS/N) 7" 
350 GETY*: I FY$ = " S M THENRUH 
SS0 IFYS“ “N*THENEND 
370 GOTD850 

980 FRINTML GIOCO CONSISTE" 

230 PR I NT * NELLO SCAPPARE DAL 11 
308 PRI NT "MOSTRO < M> CHE SI" 

S10 PR I NT "MUOVER A * VERSO DI" 

3£0 PR I NT " TE CX> PER MANGIARTI-" 
S3G PR I NT "SE RIUSCIRAI A" 

S43 PR JNT-3FUGG IRGLI PER 10 H 
950 PR I NT " MOSSE SARAI SALVO « * 

360 GETAS: IFAS^ 1 ’ "THEN360 
970 RETURN 

READY* 







Tennis 

PER 

Due 


100 REM < >< >< >< >< >< >< >< >< >< >< >< >< >< >< > 


102 REM <> < PER DUE GIOCATORE < > 

104 REM <> TENNIS PER CBM 84 <> 

106 REM <> <> 

108 REM O EMANUELE BALDI <> 

1 10 REM O < >ì 

112 REMO TEL • 039/745184 O 


114 REM OJIOVSTICK OPP , TASTI >PXE O 
1 16 REM < >< >< >< >< X >< >< >< >< >< >< >< >< >< > 

118 REM 

120 REM tttttttt INPUT tttttttt 

122 REM ~ 

124 INPUT w ;'«aB E I UN MERLO M ;A$iJFA$- 

■S M THENPQKE5324B+23,3SP1 =0:60X0 130 
126 INPUT AC GHETTA < 0/2 > * I 

P 1 i P0KE53248 +23 , 0 

128 I NF U T " MMitìS E 1 UN MOSTRO "JAOUFA*’ 
M S " THENQ * 15 s C = -20 ! GOTO 1 32 
130 I NF UT" Minasi VELOCITA 1 < 6/ 1 0 > " J C i G 
C-UC=-CI 1 FC * - 1 THENQ 25 1 
132 I NPUT 11 fflUaKI ON 2 JOISTYCK " i f\% ’ IFA* 
"S " THEN 1 37 

134 INPUT*SMMC0N 1 J0 ISTYCK " ; A** IFA* = 



S" THEN 138 


136 W1 B 14 i W2=23: N3=4 1 ! UW ”44 : L5 = 2 0 3 ■ L S “L5 i GOTO 1 33 

137 Ni = 126 s W2« 125 s N3=254 i N4*253 ! L 5*56320 « L6 = 

5632 1 fi GOTO 1 39 

138 N 1 = 1 26 : N2 - 1 25 J U3 =411 N4*44 ! L5 *56320 ' L6*203 

139 □ ATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 0 , 0 , 0 , 0 , 0'®'£ | ' 0 '- 0 ' 0 ' 0 ' 0 ' 0 ' 60J ' 0 '' 0Jh5e9y0 
0,2 55 ,0,0, £55 , 0 

140 DATA0 -255,0 ,0,255,0,0 , 129 ,0,0,60 ,0,0 ,0/0 ,0 , 0 , 0 ,0 , 0 , 0 , 0 ,0,0 


0,0 ,0,0,0, 0,0 ,0 

142 DATA® ,0 ,-1,0 

144 DATA0 , 255 , 128,0,255,128,0,255, 128,0,255, 128,0,255, 128,0,255, 
128,0,255 , 128 

146 DATA0, 255, 128,0,255, 128 

148 DATA0 ,255, 128,0,255, 128,0,255, 128,0,255 , 128,0,255, 128,0,255, 


128,0,255, 128 

150 DATA0, £55, 128,0,255, 128 

152 DATA0 ,255 , 128,0,255, 128,0,255, 128,-1 

154 FQRR=704TO704 +63 3 POKER ,0* NEXT 


ComjuteìCk*b4? 


156 PR:NT",J“ SV-33é4S:pOKEV+21 ,7:POKE2040, I 1 =F0KE2041 , 

1 1 1 PQKE V +39 , I l P0KEV + 40 , 1 
138 POKEV ,43 s POKEV +2 ,238 

160 POKE2042 / 1 3 I POKEV +4 1 , 1 s PR I NTSPCC 33 > " SCORE " 

162 REM -*» -- 

164 REM ttttttf SCHERMO ttttttttt 
1 SS REM - — 

168 PRINT'B MMT ìftS=**Ì| * 

170 FORR*=0TO20SPRINTA*U\EXT 

172 — riFRlNT F a 

1 74 A*= “ MMM—MM— — — a— r 

176 FORR=0TO21 : PR INTA* s NEXT 

178 POKE1063,7SsPOKEl095,80:POKE1345,76sPOKEl375, 122 

i80 fi s* « nam — — m« i 11 s pr i mt » «*■ 

182 FORR =0TO22 SPRINTA* ENEKTiPRINT "3"' 

184 PR INT " — BM— IH— I — — — 

188 DX =DX + 1 s READDA s 1FDA= - 1THEN190 

183 F0KES3 1 +DX , DA ' GOTO 1 86 

190 FORP=0TOP1*2ì:READP 2SN£XT 
192 DV=OY+ 1 s READDA * IFDA» - ITHEN186 
194 POKE703 +DT , DA • GOTO 1 82 

198 P0KEV+4 , 60 * POKEV +5 , 120 a PX*80 : PY^ 1 25 s Y= 135 s YY = 1355 PR INT 

1 38 REM 

200 REM tfttftt GIOCO ttttttttt 

202 REM -- 

204 IFFL=0THEN3OTO216 

206 IFCC® 1 THENCC*0 i G0T0234 
208 A^PEEKC L5> SFL=0 
210 IFA=W1THENY*Y-QEG0T0E14 
212 1FA=W2THENY=Y+Q 
214 POKEV+1 , Y s G0SUB224 
218 B ”PEEK( L8> 5 FL = 1 

2 1 8 1FB =143THENYY= YY-Q : G0TQ222 
220 3 FB =Lf4 THENYY* YY+Q 

222 POKEV+3 , YY * G0SUB224 t GOTQ204 

224 IFPEEK< V + 30X >0THENC = -C s D^RNO< 1>*2-RND< 1 > *2 : P0KEV+4 ,FX +C = 
POKEV +30 , 0 ; GOT0228 
226 GOTO230 

228 POKE5429S ,65 i P0KE54296 ,0 t RETURN 

230 FX =PX + C : P Y=PY+D s IFPX >2420RPX< 250RPY >230ORPY< 50THENCC = 1 s RETURN 
232 POKEV + 4 , P X ! POK E V +5 , P Y * RE TUR N 

234 I FPX< 1 37THENS2 =SH + 1 S IFS2>t Si + 1 ) ANDS2 > 1 5THENPGKEV +2 1 ,0:GQTO240 
236 1 FPX > 1 37THENS 1 =S 1 + 1 ! IFSl X 52+1 ) AFdS 1 >15 THE TEPORE V +2 1 ,0=GOTQ£44 
238 PR INTSPC< 32 > S 1 *' (|- “ S2 : HA 1 T203 , 32 : GOTO 1 86 
240 PRlNT^iJ -A- HAI VINTO MI" 

242 PR lNT M ag|MMBCOREa f, S 1 *-"S2:EMJ 
244 PRINT-J -B- HAI VINTO !H M 
246 PR INT 11 BMtt SC PRESSI 62 s EMD 

248 REM REGOLO 11 

READY. 


48 ■ Computer Ckjt 



Guida mercato Commodore 


Prodotto 


Prezzo 

{IVA esclusa) 


VIC - 20 





Noma Computer Vie 20 


199.000 

Unità di «spani ione {1020} 


295.000 

Modulo di espansione {1023} 


135.000 

Cartuccia da 3K di memoria 

(1210) 

49.000 

Cartuccia da 8K di mamori» 

(1110) 

75.000 

Cartuccia da 16K di memoria 

(HW 

125.000 

Cartuccia Vie rei 

(4011) 

95.000 

Permette dì controllare il funzionamento di allarmi antifurto, porte 

automatiche, telefoni, trasmittenti ed apparecchi similari. 


Vie avviteli 

(4012} 

225.000 

Possono essere collegati fino a 

16 VIC 20 con un floppy e una 

stampante (distanza massima 1500 mt ). 


Interfaccia IEEE 488 

(T-l) 

175.000 

Interfaccia Centronics 

(T-3} 

115.000 

R5232-C adapter 

( 1011-A } 

75.000 

RS132-C edepter 

(1011-B) 

75.000 


Commodore 64 


- ■ t ■- 1 ■ 

CPU 64K RAM 

(CBM64} 

625.000 

C 84 Executive 

( SX64 ) 

2.350.000 

Sistema operativo CP/M (CP/M) 

125.000 


Consente di programmare il Commodore 64 fn linguaggio CP/M, il 
più utilizzato sui Personal Computers. Permette inoltre dì accedere 
alla enorme libreria di Software applicativi CP/M. 

Pet spefld (641 1} 95.000 

Compilatore basic che aumenta la velocità di esecuzione dei pro- 
grammi di circa 40 volte. 


Accalori 


per Vie a Com m odoro 64 


Stampante plotter a colori (1520) 375.000 

80 caratteri, per linea, declori, alia risoluzione di 0,2 mm per passo. 
Unità stampante (MP$ 801} 450. 000 

Stampa velocemente su carta normale guanto appare sul vìdeo pro- 
grammi, lettere, dati, grafici. 

Unità ita m penta (1526} 655.000 

Stampante 80 colonne, bidirezionale, 60 CPS, spaziatura program- 
mabile. trazione a frizione o a trattore. 

Registratore dedicato (ISSO) 120 000 

Per memorizzare facilmente programmi e dati su normali cassette 
magnetiche. 

Floppy disk drive (1541} 630,000 

Veloce unità di memoria di massa ad alta capacità. Può immagaz- 
zinare fino a 170,000 caratteri su ogni sìngolo di geo. 

Monitor monocromatico (1601) 285 000 

A fosfori verdi 12“', 


Per giocar e 


Comando par giochi { Joystick) (1311) 13.500 

Permette dì muoversi in tutte le direzioni, di iniziare i vari giochi di 
movimento e di "sparare". 

Comando a manopola par giochi (Paddi») (1 312) 22.500 

Adatto per i giochi a 2 persone, esegue movimenti in orizzontate e 
verticale. 

■ ■ , • 

Commodore 4000 

CPU 16K RAM (CBM4016) 1.395.000 

1BK ROM, BASIC 4 0 residente, video 40 colonne per 25 righe, 
tastiera semìgrafiea. 


CPU 32 K RAM (CBM 4032} 1 495.000 

18K ROM. BASIC 4,0 residente, video 40 colonne per 26 righe, 
tastiera semigrafica. 


Commodori 6000 

. . 

. 



Doppia CPU 134K RAM (CBM 9000} Z350.000 

Micro Main Frame Computer a doppia CPU (6502 68091 compati- 
bile con tutte le periferiche Commodore della serie 8000. Include 5 
linguaggi di programmazione. {COBOL, FORTRAN, TCL PASCAL, 
UCSD PASCAL, APLL 

Commodore 8000 


CPU 32K RAM (8032 SIC) 1.725.000 

18K ROM. Basic 4.0 residente, video orientabile e basculante 80 
colonne per 25 righe, tastiera commerciale separata. 

CPU 96K R AM (8096 SK} 2,285,000 

18K ROM, Basic 4.0 residente, video orientabile e basculante 80 
colonne per 25 righe, tastiera commerciale separata. Include sistema 
operativo PM/96- 


Com madore 600 


Indicato per applicazioni industriali, collegamento a strumentazione, 
controllo numerico, ecc. Utilizza monitor in commercio, 

CPU 128K RAM (610} 2,150,000 

CPU 128K RAM espandi bile internamente a 256K e esternamente a 
960K, interfaccia RS232C, IEEE 488, porta utente a 8 Bit. Compa- 
tìbile con tutte le periferiche Commodore della serie professionale. 
CPU 256K RAM (620} 2.550.000 

CPU 256K RAM espandibili esternamente a 960K, Caratteristiche 
uguali al Mod, 610. 

Monitor (1601 } 285.000 

Monocromatico a fosfori verdi, 12" 


Commo dore 700 


CPU 128K RAM (710) 2.850.000 

CPU 128K RAM espandibili internamentea 256K. ed esternamente a 
960K, Video orientabile e basculante BOcoionne per 25 righe. Com 
patibile con tutta le periferiche Commodore delle serie professionali. 


I 




Riservato 
agli ingegneri 


Il miglior software tecnico 
su elaboratori 
CBM - Commodore 
Ora anche disponibile su 
Commodore 64 

■■■■■■Hi 

formai famoso programma per il calcolo delle strutture in- 
telaiate piane in c. a., ìn zona sismica, che sviluppa e dise- 
gna anche le carpenterie de ile armature, 

(Ultima versione Luglìo/1982 nostra esclusiva) 


“FONDAZIONI” 

Risolve tutti i problemi di fondazioni (trave elastica su suo- 
lo elastico) di strutture in c.a, ìn zona sismica e non, risol- 
vendo l'intero gratìccio di londazione e proponendo una 
carpenteria sofisticata ed ottimizzata. 


“MURI DI SOSTEGNO” 

A gravità, a mensola 0 a contrafforti, anche in zona sismi- 
ca, secondo il D,M, del 21/1/1901. 


“PENDÌI” HHH 

Analizza la stabilità dì un pendio o di un fronte di scavo sot- 
to diverse condizioni e la verifica relativa viene condotta in 
termini di tensioni effettive ; la stima dei fattori di sicurezza 
viene effettuata secondo i metodi di Fellenius, Bishop e 
Jambu, 


“COMPUTI METRICI” 

Analisi ed elenco prezzi Metodo veloce e completamente 
automatizzato per il computo e la stima dei lavori. 


“REVISIONE PREZZI” 

Secondo le disposizioni di legge vigenti. Praticità ed auto- 
mazione consentono di eseguire velocemente revisioni di 
prezzi anche per lunghi periodi 

Richiedeteci documentazione e output dei pro- 
grammi di vostro interesse. Resterete sbalorditi 
dalla versatilità e dalla completezza del nostro 
software. 


SIRANGELO COMPUTER Srl 


Via Parisio, 25 - Cosenza 0984-75741 

NEW NEW NEW NEW NEW NEW NEW 
È pronto il nuovissimo programma 
“ORARIO SCOLASTICO” 


CPU 2MK RAM (720 1 3.260 000 

Monljor a colori 14" con audio. (1703) 646.000 


Dischi 



Floppy di* drivi (3031 J 676.000 

Uniti di mimo ria di mai*» ad alta velocità Cibaci ti 170KB, Drivi 
■Ingoio. 

Floppy di* drivi (4040} 2.006.000 

Unità di memoria dì massa ad alta velocità. Capacità 343KB, Drive 
doppio. 

Floppy di* drive (SOSO} 2 375.000 

Drive doppio 1M byte in linee. 

Floppy di* drive (SDF 1001 ) 1,245.000 

Drive singolo, doppie feccia, doppie denaità 2M byte in line*. 

Floppy di* drive (8230 L.F) 2.600,000 

Drive doppio, doppie feccia, doppia denti tè. 2M byte In linee. 

Hard di* 19060} 6,900,000- 

Tec no logie Wincheater, ,6M byte In linea 
Hard di* (9090} 7.425.000 

Tecnologia Wì neh «ter, 7. SM byte in linee. 


Stampanti 

Stampante <4023 P) 606.000 

Bidirezionale ed aghi. 60 CPS, €0 colonne. 

Stampante (MPF 1361) 1.276.000 

Stampanti ed eghl 150 CPS, 132 colonna, bidirezionale, trattine- 
mento a trattore. 

Stampanti (6400/ 3,260,000 

Stampante a margherita, 40 CPS, 136 colonne patto pica, 163 co- 
lonna patio élite, bidirezionale, utilizzabili anche con carta da bollo, 
traac Ina mento a frizione o a trattore. 

Acce sori 



MJeraprowaaora 32 K RAM (MUPBT 11) 2,600.000 

Per connettere, In rate fino a 16 CPU A $232. IEEE 468. centro n lei 
Il prezzo Include (configurazione min lina) - controller, terminator, 3 
moduli, cavi, cavo IEEE/PET (per la varitene SK). 

Singolo modulo addizionala: 32G.OOO 

1 modulo 
1 cavo 6 piedi. 

Muovo alatemi operativo (FM 96/ 96,000 

Per &096SK o per 8032$ K con 0 - 1 oppure con B ■ 2. Pudgeatlra 
fino e 16 programmi rendenti al mul tantamente In memoria. De a 
di apolli io ne 26 K per le variabili e 63 K per I programmi. Potenzia 
Inoltra il Basic con altri comandi. 

64K RAM (fri) 676.000 

Schede di ampliamento memoria par 6032 e nuovo alitarne opera- 
tivo "FM 96" 

OP/Makar (B-3) 1.450.000 

Incrementa la memoria Interna di 64 K RAM e permette l'uso d> 
tutti I programmi CP/M, 0 bit disponibili, Compatìbile con la serie 
3000/4000/8000. 


Scheda ad alta risoluzione grafica (3-3/ 
Competi bile al listami delia serie 8000. 

720.000 

Cavo PET/IEEE 438 

(C-1J 

B5.0Q0 

Cavo IEEE 4SB/IEEE 

(02) 

96,000 

Accoppiatore touetfoo 

300 baud/iac. 

(8010/ 

596.000 




COMMODORE 64~ 

HOTLINE- UPDATE GARANZIA 

Tre nuove parole nel campo dell' informatica. Esse rappresentano il 

- NUOVO SERVIZIO - 

che la Leoni Informatica, prima fra tutti offre ai suoi clienti. COMMODORE 64E 


HOTLINE 

UPDATE 

GARANZIA 


— linea telefonica dedicata alla risoluzione dei problemi dei clienti. 
Chiamando il numero telefonico riservato che troverete sulla cartolina 
garanzia acclusa ai programmi, riceverete tutte le informazioni che vi 
necessitano. 

— servizio di aggiornamento continuo dei programmi acquistati. Ogni modi- 
fica ai programmi realizzati dalla Leoni Informatica sarà fornita agli utenti 
degli stessi. 


— tutti i programmi Leoni Informatica sono coperti da garanzia a Vita contro 
guasti di origine. 


ALCUNI PROGRAMMI PER COMMODORE 64 


Cod. 

Descrizione 

Prezzo 

0152 

Gestione Studi Medici 

300000 




0158 

Magazzino Dettaglio (2500 art) 

380.000 




0159 

Magazzino Taglia e Colore 

380000 

0047 

Gestione Anagrafiche 

120 000 

0160 

Bolle e Fatture 

300 000 

0050/c 

Totocalcio Sviluppo Colonnare 

80 000 

0162/C 

Screen Grafi x 

150.000 

0051 /c 

Gestione dei conti Casa 

100 000 

0163 

Cupi a Disco Singolo 

50.000 

0055 /c 

Impariamo il basic 

100.000 

G165/C 

Assembler Disassembler 

80.000 

0056/ c 

Dichiarazione Iva 

60000 

01 69/c 

Magazzeno alfanumerico (11 00 articoli) 

250000 

0063/ c 

Cento Programmi per il 64 

QO 000 

0080 

Gestione Ciubs Nautici 

250 000 

0064 

Compilatore Pet Speed 

SO .ODO 

0081 

Gestione Officine 

400 000 

0065/c 

Fido Clienti 

100.000 

0087 

Gestione Ristoranti 

400.000 

0066 

Conto Corrente 

150 000 

0131 

G eatio ne H otel / Penai on i 

400.000 

0067 

Gestione piano dei Conti 

150 000 

0132 

Gestione Parrucchieri 

400.000 

0068 

Gestione Appuntamenti 

150 000 

0133 

Gestione Gommisti 

400.000 

0071 

Gestione Ordini 

150 000 

0170 

Gestione Tavola Calda 

400.000 

0086 

Gestione Librerie 

150 000 

0171 

Gestione Lavanderia 

400000 

0090 

Mailing List 

150.000 

0155 

Gestione Condominio 

300.000 

0091 

Rubrica Telefonica 

120.000 

0166/c 

Compactor 

50.000 

0094 /c 

Gestione Scheda 4800 car. 

160 000 

0167/c 

Scompactor 

50.000 

0096 

G astio ne Scheda Agganciata al Mailing List 

250 000 

0168/c 

PET Emulator 

35.000 

0116 

Scadenziario Effetti 

200.000 

0306/ c 

Character editor 

40.000 

0120 

Contabilità Fatture Iva /Imponibile 

200.000 

0309/ c 

Hires image 

40 000 

0121 

Contabilità Semplice 

400000 

0310/C 

Hard copy 

40.000 

0136 

Legge 373 

150 000 

0312 

Master 64 

225.000 

0143 

Magazzino Grossisti (2500 art) 

380 000 

031 3/ c 

Tool 64 

65.000 

0144 

Magazzino Fatturazione Agganciale 

400 000 

0314/c 

Stat 64 

65.000 

0148 

Gestione Ottici 

300.000 

0157 

Cale Reseli: Advanced 

350.000 

0149 

Gestione Dentisti 

300.000 

0319 

Easy Script 

1 25.000 

0151 

Gestione Farmacie 

400 000 

0322 fc 

Forlh 64 

65.000 


I programmi Leoni sono disponibili presso tutti i punti vendita MELCHJONI ELETTRONICA 
Vendita per corrispondenza anche dell’HÀRDWARE 



20145 MILANO - VIA DON RODRIGO, 6 - TEL- 02/8467378 


PARTECIPA CON “COMMODORE COMPUTER CLUB" AL 
CONCORSO INTERNAZIONALE PER IL VIDEOGIOCO DELL’ANNO 

$ 1 75.000 IN PALIO 



Esclusivo per i 
lettori di 
Commodore j 
Computer Club 


tlftKE YOURSELF A 


MILLIONAIRE 


Crea un vtdeogsoco intelligente ed cognate potrai a«ven tare milionario. Questo fantastico i 

concorso, organizzato dalllRP (The NemafiQnaia* ,s ^ Register of Indipenoent Computer Programmers ’ 
ftd.) e aaJ famoso Marc McGormack International Management Group, e sponsorizzato per l'Italia da 
Commodore Computer Club. ti offre un'occasione unica nella vita, I premi sono elevali ed immediati, e ad 1 
essi sf aggiungerà una royalty del 10% sulle vendite dei giochi premiati ai piu importanti distributori m tutto il I 
nxxtdo. 1 yncrtorr, inoltre? potranno partecipare ad una serie di trasmissioni siile principali reti televisive del I 
moneto. La tua conoscenza dei computers e a tua immaginazione possono farti diventare rapidamente i 
ncco e famoso! 


PRIMO PREMIO: $ 100.000 


OLTRE 


CINQUE PREMI 
DI CONSOLAZIONE 
DI1 15.000 


Prepara un videogame nuovo e originate per una delle seguenti categorie SPORT. SIMULAZIONI. 
ARCADE. STRATEGIA, AVVENTURAI ANI AS4A o per te 
sezione spedate prevista per quei programmi che. pur non 
essendo dei ven giochi, abbiano notevoli caratterrsticbe 
didattiche o di drvertpmento. Sono altresì previsti una sene d» 
premi al "Merito" che consentiranno di stampigliare suite 
confezioni commerciali dei videogiochi selezionati Ja dizione 
'An International Videogame of The Year MERIT AWARDV 
E' una grande sfida. Ed i premi, sia in termini finanziari che di 
prestigio, sono eccezionali. 

Questo è certamente H concorso Internazionate più eccitante 
per ogni appassionato di computer. 


APPARIRETE IN 

™ i sei vincitori saranno invitati a 
far parte di uno spettacolare 
show teteviSfvo che vena distribuito ai 
p ù importanti network del mondo. 
Quanto basta per renderti famoso! 


COME 

PARTECIPARE 

Invia il tuo gioco o i tuoi gechi su 
cassetta indicando su quale 
computer gira o. girano, utizzando 
questo coupon di qualificazione 
Eleverai anche una aocunentazone 
completa con le regole Dettagliate 
del concorso 

ENTRO E NON OLTRE 
IL 31 MAGGIO 1984 

A IRP Limited, Pirewooc 
Film Studios. Ver. Bucks 
Engfand 
Nome. 


indirizzo 


SCI 





